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OQNOCOQOOOLINE 


QOL77097CC YSER=SITE 3 COMPILE FORTRAN/DISK WITH TSPOL LIBRARYS7SPOL FILE LINE YSPOL /FORTRAN. 


BURROUGHS B=5700 TSPOL COMPILER MARK XVI.0,00 THURSDAYs 04/07/7728 8157 AM, 
' FORTRAN/DISK 
Sesteassete2tasz 
| eacyatehuseh -Aeieshiian tesciposnstvua ROB ce- Ate stnntieinne seca eae BRA aes Btn! “Eg gee00OTR 000s 
FORTRAN COMPILER XVI20.00 10/01/74 00001000 Tt 0000 
OMMENTS » TYTLE$ BS5500/BS700 MARK XVy SYSTEM RELEASE * Oob01010 T 0000 
poral “—~w FYLE IDV SYMBOLZFORTRAN TAPE YO! SYMBOLIZ7FILE000 ~ ~~ # ““OUOOLTOLL T O000 ~ 
| THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 00001012 7 0000 
AND IS NOT TO BE REPRODUCED» USED» OR DISCLOSED * 00001013 T 0000 
EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON ~ * “—"""“OO00T0La 7 0000 
WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF * 00001015 T 0000 
+ BURROUGHS CORPORATION» DETROIT» MICHIGAN 48232 is 00001016 T 0000 
* 00001017 t 0000 
COPYRIGHT (C) 149719 19725 1974 * 00001018 7 0000 
BURROUGHS CORPORATION * 00001019 +t 0000 
AA320206 AA393180 AA332366 * 3 00001020 000 
re 0001900 T 000d 
ane FORTRAN ERROR MESSAGES ; 00002000 tT 0000 
000 SYNTAX ERROR 80003000 tT 0060 °° © 
Oo1 MYSSING OPERATOR OR PUNCTUATION 00004000 rt 0000 
002 CONFLICTING COMMON AND/OR EQUIVALENCE ALLOCATION 00005000 r 0000 
003 MESSING RIGHT PARENTHESTS” °° Saggggeode 4 ouNN ee ees 
004 ENTRY STMT ILLEGAL IN MAIN PGM OR BLOCK DATA 00007000 T 0000 
005 MySSING END STATEMENT 00008000 Tt 0000 
006 ARITHMETIC EXPRESSION REGUIRED “00009000 ¥ OD0G © 
OO? LOGICAL EXPRESSION REQUIRED 00010000 Tf 0000 
008 TOO MANY LEFT PARENTHESES 00011000 + 0000 
009 Tn0 MANY RIGHT PARENTHESES ~-OO0{ 2000 tT 0000 °° = 
010 FORMAL PARAMETER ILLEGAL IN COMMON 00013000 Tt 0000 
O14 FORMAL PARAMETER ILLEGAL IN EQUIVALENCE 00014000 T 0000 
012 THIS STATEMENT ILLEGAL IN BLOCK DATA SUBPROGRAM “OOUT5000 T 0006 ~~ 
013 INFO ARRAY OVERFLOW 00016000 Tt 0000 
014 IMPROPER 0O NEST = 00017000 T 0000 
015 On LABEL PREVIGUSLY DEFINED "00018000 tT 60006 ~~ 
016 UNRECOGNIZED STATEMENT TYPE 00019000 y 0000 
O17 ILLEGAL OO STATEMENT 2 222 00020000 T 0000 
018 FORMAT STATEMENT MUST HAVE LABEL ‘ “00021000 F 0000 ~~ 0 UT 
019 UNDEFINEn LABEL 00022000 T 0000 
020 MULTIPLE DEFINITION 00023000 ft 0000 
024 ILLEGAL YOENTIFIER CLASS IN THIS CONTEXT 20002 2 7 ee "00024000 T 0000 ~~ = 
022 UNPAIRED QUOTES IN FORMAT 00025000 rT 0000 
023 NOT ENOUGH SUBSCRIPTS 00026000 Tt 0000 
054° FOO MANY SUBSCRYPTS— Ton ee Sieeeee nr me yggg 
025 FUNCTION OR SUBROUTINE PREVIOUSLY DEFINED 00028000 Tt 0000 
026 FORMAL PARAMETER MULTIPLY DEFINED IN HEADING 00029000 + 0000 
037 ~ TCLEGAL USE UF NAWEL TS nr TE ance ae a OOO 
028 NUMBER OF PARAMETERS INCONSISTENT 00031000 rt 0000 
029 CANNOT BRANCH TO FORMAT STATEMENT 00032000 7 0000 
030  SiU/BROUTINE OR FUNCTION NOT DEFINED IN PROGRAM UU rrr rrr === FON TIOVNN TT “C0007 ee 
031 INENTIFIFR ALREADY GIVEN TYPE 00034000 T 0000 
* & as ne) oor, or 


= i 


032 
033 
034 
035 
036 
037 
038 
039 
040 
O41 
O42 
043 
O44 
045 
046 
047 
048 
049 
050 
054 
052 
053 
054 
055 
056 
057 
058 
059 
060 
O61 
062 
063 
064 
065 
066 
067 


068 | 


069 
070 
O71 
O72 
073 
074 
075 
076 
077 
078 
O79 
080 
081 
082 
083 
084 
085 
086 
087 
088 


ILLEGAL FORMAT SYNTAX 

INCORRECT USE OF FILE 

INCONSISTENT USE OF IDENTIFIER 

ARRAY IDENTIFIER EXPECTED 

EXPRESSION VALUE REQUIRED 

ILLEGAL FILE CARD SYNTAX 

ILLEGAL CONTROL ELEMENT 

DECLARATION MUST PRECEDE FIRST REFERENCE 
INCONSISTENT USE OF LABEL AS PARAMETER 

NOQe OF PARAMS. DISAGREES WITH PREVe REFERENCE 
ILLEGAL USE OF FORMAL PARAMETER 

ERROR IN HOLLERITH LITERAL CHARACTER: COUNT 
TLLEGAL ACTUAL PARAMETER 

TnO MANY SEGMENTS IN SOURCE PROGRAM 

TNO MANY PRT ASSIGNMENTS IN SOURCE PROGRAM 
LAST BLOCK DECLARATION HAD LESS THAN 1024 WORDS 
ILLEGAL 170 LIST ELEMENT 

LEFT STIO& MUST BE SIMPLE OR SUBSCRIPTED VARIABLE 
VARIABLE EXPECTED 

TLLEGAL USE OF ,OR, 

ILLEGAL USE OF ,AND, 

Ti LEGAL USE OF ,NOT, 

ILLEGAL USE OF RELATIONAL OPERATOR 

ILLEGAL MIXED TYPES 

ILLEGAL EXPRESSION STRUCTURE 

ILLEGAL PARAMETER 

RECORD BLOCK GREATER THAN 1023 

TNO MANY OPTIONAL FILES 

FrLE CARDS MUST PRECEDE SOURCE DFcK 

BrNARY WRITE STATEMENT HAS NO LIST 

UNDEFINEn FORMAT NUMBER 

ILLEGAL FXPONENT IN CONSTANT 

ILLEGAL cONSTANT IN DATA STATEMENT 

MAIN PROGRAM MISSING 

PARAMETER MUST BE ARRAY IDENTIFIER 

PARAMFTER MUST BE EXPRESSION 

PARAMETER MUST BE LABEL 
PARAMETER MUST BE FUNCTION IDENTIFIER 
PARAMETER MUST BE FUNCTION OR SUBROUTINE ID 
PARAMETER MUST BE SUBROUTINE IDENTIFIER | 
PARAMETER MUST BE ARRAY IDENTIFIER OR EXPRESSION 
ARITHMETYC = LOGICAL CONFLICT ON STORE 

ARRAYID MUST BE SUBSCRIPTED IN THIS CONTEXT 
MORE THAN ONE MAIN PROGRAM 

ONLY COMMON ELEMENTS PERMITTED 

TNO MANY FILES 

FORMAT OR NAMELYST TOO LONG 

FORMAL PARAMETER MUST BE ARRAY IDENTIFIER 
FORMAL PARAMETER MUST BE SIMPLE VARIABLE 
FORMAL PARAMETER MUST BE FUNCTION IDENTIFIER 
FORMAL PARAMETER MUST BE SUBROUTINE IOENTIFIER 
FORMAL PARAMETER MUST BE FUNCTION OR SUBROUTINE 
On OR IMPLIED DO INDEX MUST BE INTEGER OR REAL 
ILLEGAL COMPLEX CONSTANT 

ILLEGAL MIXED TYPE STORE 

CONSTANT EXCEEDS HARDWARE LIMITS 

PARAMETER TYPE CONFLICTS WITH PREVIOUS USE 


mereae 9 


. 90035000. 


00036000 t 
00037000 T 
00038000 T 


00039000 fT 


00040000 T 
00041000 T 


00042000 T 


00043000 T 
00044000 T 


00048000 F~ 


00046000 T 
00047000 T 


00048000 T 


00049000 T 


00050000 T 


00051000 T 
00052000 T 


00053000 T 


00054000 T 
00055000 T 


_00056000 T 


00087000 T 
00058000 T 
00059000 T 


00060000 T 


00061000 T 


00062000 7 


~ 00063000 T 


00064000 T 
00065000 T 


~ 00066000 7 


00067000 T 
00668000 T 


06069000 T 


00070000 T 
00071000 T 


— 00072000 T 


00073000 T 
00074000 Tf 
00075000 T 
00076000 fT 


00077000 


00078000 7 
00079000 1 
00680000 7 
000681000 7 
00082000 tT 
00083000 T 


00684000 7 


00085000 T 


90086000 T 


00687000 7 
00688000 T 
00089000 T 


00690000 T 


00091000 T 


T0000 . 


0000 
0000 
0000 


0000 


0000 
0000 


Cote = 


0000 
0000 


0000 


0000 
0000 


0000 — 


0000 
0000 


0000 


0000 
0000 
0000 
0000 


0000 


0000 
0000 


‘0000 


0000 
0000 
0000 


0000". 


0000 
0000 


‘0000 ~ 


0000 
0000 
0000 
0000 
0000 


0000 — 


0000 
0000 


0000 


0000 
0000 


~ 0000 


0000 
0000 


0000 


0000 


0000 
0000 


0000 


0000 _. 
0000 


0000 
0000 


“Seng 


0000 


7 3 au 


89 
90 


091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


M S 
GONPLEX EXPRESSTON ICLEGac EN AELStIONS 
TNO MANY FORMATS REFERENCED BUT NOT YET FOUND 
VARIABLE ARRAY BOUND MUST BE FORMAL VARIABLE 
ARRAY BOUND MUST HAVE INTEGER OR REAL TYPE 
COMMA OR RIGHT PARENTHESIS EXPECTED 
ARRAY ALREADY GIVEN BOUNDS 
ONLY FORMAL ARRAYS MAY BE GIVEN VARIABLE BOUNDS 
MYSSING LEFT PARENTHESIS IN IMPLIED DO 
SUBSCRIPT MUST BE INTEGER OR REAL 
ARRAY SIZE CANNOT EXCEED 32767 WORDS 
COMMON OR EQUIV BLOCK CANNOT EXCEED 32767 WORDS 
THIS STATEMENT ILLEGAL IN LOGICAL IF 
Re AL OR rNTEGER TYPE REQUIRED 
ARRAY BOUND INFORMATION REGUIRED 
REPLACEMFNT OPERATOR EXPECTED 
IMENTIFIER EXPECTED _ 

LeFT PARENTHESIS EXPECTED 

ILLEGAL FORMAL PARAMETER 

RIGHT PARENTHESIS EXPECTED 

STATEMENT NUMBER EXPECTED 

SLASH EXPECTED 

ENTRY STATEMENT CANNOT START PROGRAM UNIT 
ARRAY MUST BE DIMENSIONED PRIOR To EQUIV STMT 
INTEGER CONSTANT EXPECTED 

COMMA EXPECTED 

SLASH OR END OF STATEMENT EXPECTED 

FORMAT» ARRAY OR NAMELIST EXPECTED 

END OF STATEMENT EXPECTED 

Io STATEMENT WITH NAMELIST CANNOT HAVE I0 LIST 
COMMA OR END OF STATEMENT EXPECTED 

STRING TOO LONG” , 

MYSSING QUOTE AT END OF STRING 

ILLEGAL ARRAY BOUND 

Tn0 MANY HANGING BRANCHES 

TNO MANY COMMON OR EQUIVALENCE ELEMENTS 
ASTERISK EXPECTED 

COMMA OR SLASH EXPECTED 

DATA SET TOO LARGE 

TOO MANY ENTRY STATEMENTS IN THIS SUBPROGRAM 


DECIMAL WIDTH EXCEEOS FIELD WIOTH 


UNSPECIFIED FIELO WIDTH 
UNSPECIFIED SCALE FACTOR 


UNSPECIFIED DECIMAL FIELD 

DOFCIMAL FIELD TLLEGAL FOR THIS SPECIFIER 

ILLEGAL LABEL 

UNDEFINED NAMELIST 

MULTIPLY DEFINED ACTION LABELS ae 

TOO MANY NESTED OO STATEMENTS = 

STMT FUNCTION ID AND EXPRESSION DISAGREE IN TYPE 
ILLEGAL USE OF STATEMENT FUNCTION 

UNRECOGNIZED CONSTRUCT 

RETURN» STOP OR CALL EXIT REQUIRED IN SUBPROGRAM 
FORMAT NUMBER USED PREVIOUSLY AS LABEL 

LABEL USFD PREVIOUSLY AS FORMAT NUMBER 
NON@STANDARD RETURN REQUIRES LABEL PARAMETERS 


00092000 
00093000 
00094000 
00095000 


00096000 


00097000 
00098000 


00699000 — 


00100000 
00101000 


00102000 


00403000 
00104000 


00105000 


00106000 
00107000 


“00108000 


00109000 
00110000 
60111000 
00112000 
00113000 
00114000 
00115000 
00116000 
00117000 
00118000 
00119000 


00120000 


00121000 
00122000 


“00123000 © 


00124000 
00125000 


— 00126000 


00127000 
00128000 


00129000 


00130000 
00131000 


001392000 


00133000 
00134000 


~~ OOTIS000 


00136000 
00137000 


00138000 


00139000 
001460000 


00141000 — 


00142000 
00143000 


00143001 


00143002 
00143003 


(00143004, 


00143005 


t 


EU ae a tt st tt Ht ht tt Ht st HI 


000 
0006 


0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 


“0000 


0000 
0000 


"0000" 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000. 


0000 
0000 


(6000 


0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 


0000 — 


0000 
0000 


00007 


0000 
0000 


~ 0000 — 


0000 
0000 


9000 


0000 
0000 


0000 


0000 
0000 


Gogg 


0000 
0000 


0000 — 


0000 


ONUBLF OR COMPLEX REQUIRES EVEN OFFSET 
FORMAL PARAMETER ILLEGAL IN DATA STATEMENT 


TNO MANY LOCAL VARIABLES IN SOURCE PROGRAM 

A $FREEFORM SOURCE LINE MUST HAVE < 67 COLS 

A HOL/STRING UNDER SFREEFORM MUST BE ON ONE LINE 

THIS CONSTRUCT IS ILLEGAL IN TSS FORTRAN 

ILLEGAL FILE CARD PARAMETER VALUE 

RETURN IN MAIN PROGRAM NOT ALLOWED 

NON@*POSITIVE SUBSCRIPTS ARE ILLEGAL 

NON@IDENTIFIER USED FOR NAME OF LIBRARY ROUTINE 

HYPHEN EXPECTED 

SFQUENCE NUMBER EXPECTED 

TnO MANY RECURSIVE CALLS ON LIBRARY ROUTINES — 

ASTERISK NOT ALLOWED IN READ STATEMENT 

ASTERISK ONLY ALLOWED IN FREE FIELD OUTPUT 

TNO MANY *@ED LIST ELEMENTS IN OUTPUT 

Hat OR QUOTED STRING GREATER THAN 7 CHARACTERS IN EXPRESSION 
PLUS NOT ALLOWED IN THIS FORMAT PHRASE 

K NOT ALLOWED IN THIS FORMAT PHRASE 

$ NOT ALLOWED IN THIS FORMAT PHRASE 

INTRINSICS*NAMED FUNCT MUST HAVE PREVIOUS EXTERNAL REFERENCE. 
NaTA STMT COMMON ELEM MUST BE IN BLK DATA SUBPRM 
VARIABLE CANNOT BE A FORMAL PARAMETER OR IN COMMON 
CURRENT SUBPROGRAM ID EXPECTED 

SUBPROGRAMs EXTERNAL» OR ARRAY ID EXPECTED 

REPEAT» WIDTH» AND DECIMAL PARTS MUST BE LESS THAN 4091. 
REPEAT PART MUST BE EMPTY OR >O AND «< 4091 

In SUBPRGMSVARBL IS USED PRIOR TO USE IN DATSTMT 


INTEGER VALUE OF 8 EXPECTED 

INTEGER vALUE OF 4 EXPECTED 
INTEGER VALUE OF 4 GR 8 EXPECTED = =~ 
AN ALPHABETIC LETTER CAsBsCoeeesZ) IS REQUIRED 
SFCOND RANGE LETTER MUST BE GREATER THAN FIRST 
IMPLICIT MUST BE FIRST STATEMENT IN PROGRAM UNIT 
RFAL/INTFGER/LOGICAL/COMPLEX/DOUBLEPRECISION REQ 
ILLEGAL USE OF ASTERISK FOR RUN@TIME EDITING — 

n PROGRAM UNIT FOR THES ENO STATEMENT 


INTEGER ERRORCTS COMMENT MUST BE FIRST DECLARED VARIABLE; 
\INTEGER SAVETIME3 COMMENT MUST BE 2 ND DECLARED VARIABLES — 
NTEGER CARDCOUNTSESTIMATE,SEQERRCT 3 
ads SWARYCT3 
OY/REAL TWODPRYX3 
E INYTIALSEGNOS” 
NEyTs FNEYTs NAMEs NUMTYPE3S 
As Be Yo Jo Po To TSe 23 
RT "S$ START COMPILE TIME 
EXPVALUEs EXPRESULT» EXPLINK3 
REAL SPL INK» FUNVAR3 ee eee, Van 
REAL DATAPRTsDATASTRTsDATALINKsDATASKP3 
BOOLEAN SCANENTER 3 %& TRUE IFF SCAN JUST DID AN ENTER ON AN ID, 
DEFINE NUMINTM18 
83 
#3% NUMYNTM1 IS THE NUMBER OF INTRINSICS MINUS 13 FOR EACH NEW INTRINSIC 


SYNTATICAL TOKEN CONTAINS TOO MANY CHARACTERS, 029 °° 7 


00g ee 


00143006 rT 0000 
60143007 Y 0000 
00143008 7 0000 
00143009 T 0000 
~O01439016 tT 06000 
00143011 T 0000 
00143012 Tt 0000 
00143013 7 0000 
00143014 Tt 9000 
00143015 T 0000 
00163016 T 
00143017 + 0000 

00143018 T 0000 _ 
00143019 Y 6600 
00143020 Tr 0000 
00143021 7 0000 | 
00143022 7 0000 
00143024 tr 96000 

00143025 7 0000 
00143026 FT 0000 
00143027 tT 0000 
00143028 rf 0000 
00143029 7 0000. 
00143030 T 0000 
00143031 Tr 0000 
00143032 7 
00143033 T 0000 
00143034 7 0000 
00143035 tr 060006 
00143036 rt 0000 
00143037 7 0000 

00443038 7 
00143039 Tt 0000 
00143040 7 0000 

~ 00143041 + 0000 ~ 
00143042 T 0000 

00143043 ¢ 0000 
00143044 0 
00143999 T 0000 
00144000 ~ 0000 

START OF SEGMENT eextenwwae 
00145000 Ff 0000 

_ 00146000 TFT 0000 
00147000 T Q000 
00147500 Y 0000 
00148000 Tr 0000 
00149600 > 
00150000 r 0000 
00151000 T 0000 

90182000 T0000 
00153000 T 0000 

90155000 T 0000 
00155100 7 0000 
00155110 Tf 0000 

_......00155210 7 0000 
00155211 + 0000 
00155212 T 0000 


“600503 


“goog 


“(004 


es 6 


% WHICH IS ANDEDs ADD 1 To THE VALUE ON SEQ# 00155211, 
DEFINE MAXEL215#43 

REAL ARRAY FNTRYLINKCOSMAXEL J3 

REAL ELy3 

ALPHA FNEWs NNEWS 

REAL LABELMON3 

INTEGER LOCALS»PARMSsPRTS»FLAGROUTINECOUNTER 3 

REAL LIMIT» VOIDTSEQ) 


REAL IDYNFOs TYPEs NSEG3 
REAL FX¢s FX2s FX3e NX1s NX2e NX33 


INTEGER LENGTH, 
ALPHA EQVIOD» 


INTEGER ROOT» ADRS 
INTEGER LASTMONE 3 
BOOLEAN ERRORTOGs*XPREVIOUS LISTED RECORD. 

EQSTOG,XENDO OF STMT TOGGLE, 

CODETOGs¥LIST CODE GENERATED e. 

TAPETOGs%MERGE TAPE INPUT, 

EODS»%EeND OF DECLRSTMTSs RESET BY ENDS. 
FILETOGs*PROCESSING FILE CARDS, 

DEBUGTNGs%TO LIST OUT ENTERING AND EXITING PROCEDURES, 
DESCREQs*DESCRIPTOR REQUIRED. 

XREF»%TQ CREATE XREF OF PROGRAM, 

SAVETOGS%VARIOUS BOOLEANS, 


OEFINE LIBTAPF | = SAVETOGe(47812#+XUSE TO SAVE NEW WHILE INCLUDE. 
SAVEDEBUGTOG = SAVETOG. C4681] #s+XSAVE DEBUGTOG WHILE IN SINCLUBE. 
SAVECODETOG = SAVETOG+(45231) #»%SAVE CODETOG WHILE IN SINCLUDE,. 
SAVEPRTTOG = SAVETOGe(4481) #s%SAVE PRTOG WHILE IN SINCLUDE. 

 SAVECLISTUG ~~ @ SAVETOG.S T4311 I8sXSAVE LISTOG WHILE IN SINCLUDE, ~~ ~~ 
VOrpoTOs = SAVETOG.(C42t1]#s%TO VOID CARDS OR TAPE 
DATASTMTFLAG = SAVETOG.COL81{I#+2WHILE IN DATA STMTS, 
F2THG” ~~ SAVETOG se COOTLI#SZADOR REL TO FF2, 0° 
CHECKTOG = SAVETOG.C3981]#+XSEQ # CHECK, 
LISTOG = SAVETOG.(38!1)#s%TO LIST OUTPUT, 
LYSTCIARTOG ~~ = SAVETOG.CI7'{ T#,8T0 CYST CYBRARY OUTPUT, UU ee 
SEQTOG = SAVETOG.C36!1)4e%T0 RESEG INPUTS, 
SEQERRORS = SAVETOG.C3581]#e%IF SEQUENCE ERRORS. 
—TYMETORG” i  SAVEFOGSTIAVITR8S STO LIST WRAPUP INFO ONLY.” 
PRTOG = SAVETOG.C33!1]#s%TO LIST STORAGE MAP, 
NEWTPTOG == SAVETOGoC32!1]#s+XCREATE NEW SYMBOLIC TAPE. 
SINGLETOG s SAVETOG.C3Lii]#,xT0 LIST OUTPUT SINGLE SPACED. ~~~ 
SEGOVFLAG = SAVETOG.C30%31]#+%SEGMENT OVERFLOW, 
FIRSTCALL = SAVETOGs[29%1]#s%TO LIST COMPILER HEADINGs 
RETURNFOUND = SAVETOG. C2691 T#sZRETURNS CALL EXITs STOP FOUND, ~ 
ENDSEGTOG 2 SAVETOGsC2781]#+XEND OF SEGMENT. 
LOGIFTOG = SAVETOGe£2681)#+¥PROCESSING LOGICAL IF STMT. 
NOTOPIN = SAVETOG.(25t13#, ase Pape rea 
DATATOG z SAVETOG. C2401] #e2WHILE IN DATA STMTS, 
FREEFTOG _—s®- SAVETOG.(2391)#s%F REE FIELD INPUT, 
SEGPTOG = SAVETOG.C22t7T#s,¥00NT PAGE AFTER SUBPRGM ~~ CC 
GLOBALNAME = SAVETOG.C21!14]#e%T0 WRITE ALL IDENTIFIERS, 
NAMEDESC = SAVETOGs[20!1}#+XIF GLOBALNAME OR LOCALNAME TRUE« 
LOCALNAME” "= SAVETOG.CITO%TJ#s¥TO WRITE AN IDENTIFIER, ~~ oi 
TSSEDITOG = SAVETOG.CIBt1]#s+XTSSEDIT, 
UNPRINTED = SAVETOGsL17%31)4e%TO LIST CARD» FALSE IF LISTED. 
DCINPUT ~~~" = SAVETOG.CI68 i T#5 IF USING YSS FORTRAN, TTT 
SEGSW @ SAVETOG,CiIS%1]4#e%TO MAINTAIN LINEDICT/LINESEG, 


LOWERBOUNDs GROUPPRTS 
INTIDs REALID 3 


%%% = 1 FOR SCARDS = 2 FOR STAPE. 


00155213 7 0000 
00156000 Tf 0000 
00157000 tr 0000 
00158000 T 00014 
00159000 ry 000; 
00160000 rf 0001 
00161000 fT 000; 


OO1610O1O fF OOOL 


00162000 TF 00014 
00163000 rT 0001 


00164000 y 0001 


00165000 7 0004 
00166000 yr 0004 


00167000 ~ 0004 
00168000 FT 0004 


00166200 7 0001 — 


00168400 T 0004 
00168500 ry 0004 


00168600 tT 000; . 


00169000 T 0004 
00169020 7 0004 
00169030 T 0004 
00169050 rt 0004 
00169053 T 0001 


00169054 7 “OOT 


00169055 fT 0001 
00169056 Tt 0001 


= -—QOT69087 “T° -000T: 


00169058 T 0004 
00169059 T 0004 


“00169060 7 0007) 


00169061 T 00014 
00169062 T 0004 


00169064 T 0004 
00169065 T 0004 


““O0TE90GS FT  OOO{ ~ 


00169067 T 0004 
00169068 T 0001 


00169070 fr 0004 
00169071 Tt 0001 


00169073 fT 0001 
00169074 FT 0004 


00169076 7 0004 
00169077 7 O00,4 


~ 00T69076 F 0001 ~ 


00169079 T 0004 
00169080 T 0004 


00169082 7 0001 
00169083 fT 0004 


00169085 T 0004 


UOT69063 YT O00, 


-O0168100 t O00 ~~ 


00169069 Tr 000, ~~ 


~ O0T69072 FT OOOg°> 


~“QULS9UBT 1 ~O00T" 


i 
{ 
1 
{ 


 QOL89075- 7 “OODT”  e 


i 
| 
| 
| 


| 


‘* 

: SMES: = SAV 1411] #s2TSSMESCERRMES). 

{ WARNED © = SAVETOGLELStLISeSIP TeSED ET Hae EVER EVOKED, 

| SEGSWFIXED = SAVETOG.(12!1)#eR1F SEGSW IS NOT TO BE ALTERED, 
REMFIXED = SAVETOGe(1i%s)#s%IF REMOTETOG ISNT TO BE ALTERED. 
REMOTETOG = SAVETOG.C1081]#»+XPRINT & READ STMTS = REMOTE. 
RANDOMTOG = SAVETOG.C 9%1]#+XIF EXPR USED FOR RANDOM I/O, 
VOIDTTOG = = SAVETOG.C 881)#+%TO VOID TAPE RECORDS ONLY. 
DOLIST = SAVETOG.£ 781]#+%LIST DOLLAR CARDS, 
HOLTOG © SAVETOGe£ 681]#+%INPUT IN HOLLERITHs 
LISTPTOG = SAVETOGs£ StL]#s+XLIST PATCHES ONLY, _ 7 
PXREF = s i“ ss SAVETOG.E GIL He RTO LIST XREF OF PROGRAM, 9 > 
LASTLINE = SAVETOG.(C 3814]#+%70 DETR TO SKIP XREF, 
XGLOBALS = SAVETOG.C 241}#»+%T0 LET XREF KNOW OF DOING GLOBAL 
NTAPTOG == = SAVETOG.C A81J#)xTO CLOSE NEWTAPE IF EVER OPENED ~~~ 
SEENADOUB =- =_—« SAVETOG.C4081]#»XARRAYDEC WONT BE USING THIS 

at: XWHILE WE FIX DP COMMON ARRAY SZ 
ENDSAVTNGDEF3#3 


ARRAY SSNMCO?18) § % THESE WORDS ARE USED FOR TEMP STORAGE ANDO STORING 
% PERMANENT FLAGGED DATA, 
DEFINE LASTSEQmSSNMLOJ#s LASTERR=SSNM[1 JH» LINKLIST#SSNM(C2O)# 3 
DEFINE vOIDSEQsSSNM([3) # 3 
ALPHA ARRAY ERRORBUFFsPRINTBUFF(O814]) 3 
ARRAY INLINEINTLOS35) 3 
DEFINE yRBUFF = 15049 XRBUFFDIV3250 #3 
ARRAY XRRYCOMXRBUFF #1} 3 
INTEGER SEQBASEsSEQINCR 
INTEGER SCNsLABL#NEXTSCN »sNEXTCARD$S 
“—S INTEGER SAVECARDS % TO SAVE NEXTCARP WHILE IN $ INCLUDE 
INTEGER RESULTs INSERTDEPTH3 
REAL INCLUDFS % CONTAINS "INCLUDE" 
REAL DERUGADR 3 
“ALPHA ACRO»s CHRO» 
2 ALPHA AcRs NG@R3 
SAVE ARRAY TIPELO%63) 3 
REAL LASTNEXT 3 
ALPHA NEXTACCs NEXTACC23 
ALPHA B, ANKS3 
ALPHA XTA3 
ALPHA ARRAY EDNCLOS7» 0312733 
ALPHA ARRAY HOLOID(O#%2])3— 
REAL NXAVIL,STRTSEG3S 
ALPHA ARRAY WOPL0813933 % HOLDS NAME AND CODE OF wORD MODE OPERATORS 
SAVE ALPHA ARRAY DBsTBsCBLOI9}, 
CROCOS4473 
ALPHA ARRAY XR(0!32)3 INTEGER XRI3 
SAVE ARRAY ACCUM» EXACCUM[0!201 3 
REAL ACCUMST@Ps, EXACCUMSTOP 3 
REAL DBLOWS 
PE Mi x 2 cea tre on Rl tan gk docalede, ae heat ng cede iecci nein te Ate eeont 
NALPHA ACRis CHRIS 
ALPHA ARRAY PERTIODWORD(O!10)3 
REAL ARRAY MAPFOt7]3 
REAL Fi, F23 
INTEGER Che C23 
IN a ease A Me i pa Rafat at Se hey ed Se liane RIO 
RSPxi4 #* RSP1215 He RWP=29 #> 
RSH=41 #» RSHiad2 #, RWS*AD #3 


INITIALNCRS 


COMMENT HOLDS CODE EMITTEDS 


®eeeee%eeeseetkeeeeeeee880 8 ® 
i : ee : : 


00169097 7 0004 
00169098 7 0004 
VOLEI09T F 
00169100 T 0004 
00169102 T 0001 
00169199 T 0004 
00169200 T 0004 
00169201 T 0003 _ 
00169210 7 0003 
00169220 7 0003 
00169300 r 0003 
00169310 T 0005 
00169320 7 0007 
(00169330 7 0007 
00170000 tT 0010 
00174000 T 0010 
00174100 FT 0010 
00174200 7 
00174300 T 0010 
00174310 T 0010 
“OOL7S000 T “OOL0 
00176000 T 0010 
00176500 7 0010 _ 
00176502 7 0012 
00177000 T 0012 
00178000 T 0012 
O0179000 tT O0Te2 
00180000 tr 0012 
00181000 T 0014 
00182000 7 0016 
00183000 7 0016 
00184000 T 0017 | 
00185000 T 0020 
00185100 T 0024 
00186000 fT 0023 
00186100 T 
00187000 tT 0025 
00188000 TF 0025 
00189000 fT 
00190000 Tt 0025 
00191000 T 


00169086 fT 
00169087 T 0004 
00169088 Tt 0001 

_.. 00169089 T 0004 
00169090 rT 0001 
00169091 T 0004 
00169092 Ty 0001 
00169093 7 0004 
00169094 T 0004 


00169095 T 0004 


00169096 FT 000g 


00192000 T 0029 
00193000 tT 0029 


..00194000 7 0029 
00199020 T 0029 
00194040 T 0029 


0001.0 2. 


O00, 


ooo = 


ry rT Sees 


tee 
115 eee eee 


| 
{ 
i 


_ 


| 
t 


a -. Bf ae fad 
3 3 3 : 5 1 , 


| 


i 
i 


ALPHA ARRAY RESERVEDWORDSLPLOIRWPIs CecbeueruL eel pe OeALt 
RESERVEDWORDS [COsRWS]» RESLENG 
SAVE REAL ARRAY PR» OPST [(0:25])3 % USED 
DEFINE PARMLINK # LSTT#3 
ALPHA BUFFs BUFL» SYMBOLS 
INTEGER TV,» % INDEX INTO INFO FOR PRT OF LIST NAMES 
SAVESUBSs % MAX NUMBER OF SUBSCRIPTS FOR NAMELIST IDENTIFIERS 
NAMEINDS % INDEX INTO NAMLIST IDENIFIERS ARRAY. . 
ARRAY NAMLISTCO%256)3 % ARRAY TO STOKE NAMELIST IDENTIFIERS 
ALPHA LISTIN3 
REAL ARRAY BDPRTCO#20}3 REAL BOXs 
DEFINE MAXSTRING © 4983 
ALPHA ARRAY STRINGARRAY(OEMAXSTRING]S 
REAL STRINGSIZF3 % NUMBER OF WORDS IN STRING” 
DEFINE _STMAX = 256#3 
REAL ARRAY LSTT» LSTPLOILSTMAX]3 
INTEGER LSTYLSTS»LSTAS © 
DEFINE MAXOPFILES = 63#» BIGGESTFILENB = 9983 
ARRAY FYLEINFOLO! 3s 08MAXOPFILES]3 


rN nee ONLY 


DEFINE & SOME FILE STUFF 
SLOWV = O48, 
FASTV = 18> 


SENSPHEUNFS (13818, 
SENSF= Citilé, 
_SPOF ® (2t2)#» 
“EUNF = £atS)#, 

FPRVERSION= 1#, 
FPBVERSF = £1281#, 
DKAREASZ *® £9139] #, 

ENOFILOEF s#3 

INTEGER MAXFILES3 

ARRAY TENLOI13733 

DEFINE _ BRANCH = 50#3 

REAL ARRAY BRANCHESCO8LBRANCH)3 REAL LAX» BRANCHX3 

INTEGER INXFILsFILEARRAYPRT3 

DEFINE MAXCOM=15 # 3 

INTEGER SUPERMAXCOMS %2% SUPERMAXCOM = 128x(MAXCOM+1 )e 

ALPHA ARRAY @GOMCOTMAXCOM,OTLS77 5 

REAL NEyTCOM3 

ALPHA ARRAY INFOLO#31, 0212733 

REAL ARySZ3 

ALPHA ARRAY EXTRAINFOCO&31, 0212733 

REAL EXPTis EXPT2s EXPT33 

DEFINE yR = C3685 )#%s TC = Cair7jes © 

REAL INFAsINFB,INFCS 

INTEGER NEXTINFQs GLOBALNEXTINFO® NEXTEXTRAS — 

INTEGER NEXTSS; 

DEFINE SHX¥189#s GHX™6143 

REAL ARRAY STACKHEAQLOSSHX]3 

REAL ARRAY GLOBALSTACKHEADLOTGRHXI]3° 

REAL LA, OTs TESTS 

ALPHA LADRIsLADR2sLADR3sLADR4sLAORSsLINFAS INTEGER LINDX*LADOR3 

DEFINE wixboSesoa? Mca atchsih Wraial ai aitk bdiinntdees sh dt em 

ALPHA ARRAY DOTEST» DOLABCOSMAXDOS]3 

ALPHA LYrSTART3 

ALPHA ARRAY INTCOSNUMINTM{+NUMINTM1427 3 

ALPHA ARRAY TYPES[0!6]» KLASS(O!814]3 


“OOSSLU00-F¥ “OUST 


00195000 t 0029 
“O0195010 T 0033 
00196000 T 0036 
00197000 y 0038 
O0198000 7 0038 
00199100 r 0038 
00199120 fT 0038 
00199130 T 0038 
00199200 T 0038 
00199300 7 0040 
00200000 + 0040 
00201000 7 0044 
00202000 r 0044 
00203000 T 0043 
00204000 Tt 0043 
00205000 T 0043 
00206000 T 0045 
00207000 T 0045 
00208000 t 0045 
00208100 % O04? 
00208110 T 0047 
00208120 T 0047 
00206130 T 0047 
00208135 T 0047 
00208140 7 0047 
00208150 + 0047 
00208160 T 0047 
00208370 rt 0047 
00208180 T 0047 
00208490 T 0047 
00209000 T 0047 
“06210000 7 0047 
00211000 T 0049 
00212000 tr 0049 
00213000 y 005, 
00214000 7 0054 
00214100 T 0054 
~ VOZ{T5000 F005 { 
00216000 7 0053 
00217000 r 0053 
002186000 tr 0058 
00219000 7 0058 
00220000 T 0057 
00222000 yr 0057 
00223000 T 0057 


QORZa000 FOOSE Fe 


00225000 t 0057 
00226000 tT 0057 


00228000 
00229000 


00231000 


00234000 


T 
T 


T 


u 


“OO2Z27000 YF “O0SH 7 


0060 
0060 


“00230000 FT 0080 


0060 


00232000 Tt 0062 
“00233000 fF 0062 — 


0066 


| 
I 
| 
| 4 
j 
i 


@ 


H 


i 
i 
1 
| 
! 
\ 
i 
i 
i 


a 


| 
| 


— 


1 ! 
| 
i 
i : 
! 
i 


i 
' 


1 
t 


{ 
i 


| 
| 
i 


INTEGER OP PREC». 
DEFINE nUMPSIZE =1 


ARRAY FNNHOLDLO10U 
INTEGER FNNINDEXsF 


IP 3 
agra g 


MPSIZEJ3 
NNPRTS 


DEFINE MAXNBHANG = 3083 


ARRAY FNNHANGCOINA 
DEFINE INTCLASS#l6 
“TNTPRT =C24 
TNAM =F12! 
DEFINE 


TNSERTMAX & 


TNSERTCOP & 
_INSERTMID @ 
YNSERTFID = 
TNSERTINX = 
TNSERTSEO = 
ARRAY INSERTINFOLO 
DEFINE MSRWwil #3 
ALPHA ARRAY MESSAG 
BOOLEAN ARRAY MSFL 
ALPHA ARRAY LINEDI 
ALPHA ARRAY LINESE 
ARRAY TSSMESACO?15 
INTEGER NOLINS & 
REAL LASTADOR 3 %% 
INTEGER WARNCOUNT 


DEFINE cE = C 22 1)#, %ilFA 

LASTC = € 3242]42 BiInrFA 

SEGNG To RTECS O YE OTT eens i 
class = C453 Sl#, %WeA 

FQ = (208 13%, %inrA . 

SUBCLASS = (3Tr 31*#," % (ER BA Se he ae Sted, Stet a Bride Sasa t en med, ate Me OS 
cLASNSUB = (14310)#, Ho WFR 

ADJ = (1481384, DINFA —\ 
trop cinta fl oat 

FORMAL = Ci3tij#s 

TYPEFIXED® Ci2ti ik» 

ADOR s CO4t{21#, ~ 
LINK = (36%12)4, 

RASE =—_«_so®_ 018315) 8s 

SIZE. = (33015)#> 

RASENSIZE= (18230) #» lo (DFC 

NEXTRA = C @t 61% WFO 
GINO et BV 01E Ge WES pet estes derailed ccatn Rata s Fasos 
RELADD = £21115)#s %/NFA 

TOCE = 28478 1#5 4% WEA 

TOSEGNO # 3F39% 9#, GQ INFA 

TOLASTC = 3836t12#, % FA 

TOCLASS = 15343! 5#, FA 

TORO BOU APT [Re BRTMFA oo ec cette ee ne 
TOSUBCL = 212451 38, %INFA 

TOADS | = 14847t 18s BINA 

TOFORMAL = 138473 18, NFA 

TOTYPF = 1284731%, WEA 

TOADDR == 248368128, Bisa 

TOLINK = 363368128, aie 

TOBASE = 183332158, Pica 


XNBHANGJ3 

$3)#, INTPARMCLASS=(9231]#» INTINLINES(1296) 85 
167#s INTPARMS =(3086)#s INTNUM =£36812)4%, ~ 
36]%#»5 INTX eC2t1O]#s» INTSEEN eCotile 3 


INSERTINFOLCINSERTDEPTHs4) He 
INSERTINFOLINSERTDEPTHSO) # 
INSERTINFOCINSERTDEPTHs1) # 

INSERTINFOCINSERTDEPTHs2) #» 

INSERTINFOCINSERTDEPTH)3) #3 

SINSERTMAX2084]3 


ELQSMSRWs0296) 3 

COSMSRW) 5 

CTCOt7203127)3 %& LINE DICTIONARY ARRAY 

G (O%11,08127]3 &% LINE SEGMENT ARRAY 

7 3 22% BIT FLAGS PRNTD ERR MESSGS ($748). 
NUMBER OF ENTRIES IN LINE SEGMENT 

% STORES LAST AOR, 


(3 BYR COUNTS NUMBER OF TSS WARNINGS, == 6° 


20 #, % MAX NO OF RECURSIVE CALL ALLOW ON LIB ROUT =~ ~~ 


- 00269000 Tf 


00270000 T 


9069 ow. 
“0069 


rs ee 


(on on ee 


DOT cuties 


OURR 


C08 eee 


60g eee 


Bhagat 


Ong ee 


00235000 7. 
00237000 Tt 
00238000 T 0069 

00239000 7 0071 
00240000 t 0074 
00241000 t 0074 
00241010 T 0073 

00241020 T 
00241030 7 0073 
00241200 t 0073 
00241220 T 
00241240 tT 0073 
00241260 y 0073 
00241280 tT 0073, 
00241300 t 0073 
00241320 7 
00241360 7 0073 
00241900 7 0075 

00242000 T 0075 
00242050 t 0077 
00242100 + 0079 
00242200 tT 0084 
00242220 T 0083 
00242300 7 0084 
00242700 T 0084 

aa eo ee 
00243000 tT 0084 
00244000 tT 0084 
COZESO00 TF 
00246000 tT 0084 
00246100 T 0084 

aoe ee bare 
00248000 T 0084 
00249000 T 0084 

~ 00250000 7 
00251000 T 0084 
00252000 T 0084 

ee 
00284000 7 0084 

_ 00255000 7 0084 
06256000 7 
00257000 T 0084 

00258000 7 008a 
00259000 
00260000 t 0084 
00261000 T 0064 

00282000 F O0By 
00262100 T 0084 

00263000 T 0084 
00263100 TF 
00264000 T 0084 

00265000 + 0084 
00266000 + 0084 
00267000 7 0084 
00268000 7 0084 


0084 


OO8R ea 


Goan 


EOF= 500%». Ips S50i#s NUM= 5028, PLUS= 503%, MINUS® 504%, 


DEFINE 00301000 7 0064 
— STAR® 505%, SLASH= 506#» LPAREN® 507#, RPAREN®= 508%, 00302000 T 0084 
EQUAL= 5098s COMMA= S108, SEMIs 511#> DOLLARS08, UPARROWSO0# 3° °° “OO30R000 TF OOBG 
& DEFINE PTY THRU = STEP 1 UNTIL # 3 00316000 T 0084 
_ DEFINE f ; 00317000 T 0084 
Soe gas IBES” BOC# BEES BENS S9UNS BFC © SERS BFW -8" S08 ego ome ore 
@ CDC 168%» CHS =134#»s COC = 40#» KOM =130#» DEL = 108 00319000 T 0084 
»DUP =261%» EQUL=581%#» GBC = 278%» GBW =790%» GEQL= 21% 00320000 y 0084 
9GFC w294#, GFW 28068. GRIR= 37%, FHV s36G%s TNX & BAR OO EO se{OOO F OCB 
@ 2ISD -532% ISN =548%s LEQL* 333%» LND = 67#> LNG = 198 00322000 T 0084 
le sLOD 22608» LOR = 35%, LQV & 131%» LESSe549%, MOS = 515% 00323000 T 0084 
SMKS © ?o%s MUL = 64%) NEQL® 69%» NOP = (18> PRU = ae” CCC OO samO00 T CORR 
] sXRT = 12%» RDV 2896#» RIN & 39% RTS #167#» SND = 1328 00325000 7 0084 
or » SSN = 70#» SSP = 582%» STD = 68#s SUB = 4O#s XCH 3 133% 00326000 T 0084 
oxrt = 798, LPL 33098, DIU 3{28%, SYN 81358 °° TTT VON FF OORT 
e@ sDIA = 45%») DIB = 49%. TRB = 53%, 180 = 378 00328000 T 0084 
lien a Basten Ae —pAD2 178» Sp2 = 49%, ML2 = 65#» DV2 129%, FIC = 1978 00329000 7 0084 
»SSF =280#» FYF =4538, CTC =7008, CTF = 9688 Te TINO PF TOUR g 
oa) »TOP=262# 00330010 T 0084 
. Bet Mana Meta Ae esc hth Satna ate takes ese 00331000 T 0084 
FORMAT FDCKX1O0, "NEXT = "sT39X9p0A6) FOO ene Ree eon MOR ee 
e START OF SEGMENT seeeeenews 3 
2s oe $69 J0 aa tal 0 etal hts Soy tects be 3.18 9 LONGs NEXT SEG 2 
FORMAT SEGSTRTCX63s " START OF SEGMENT wi bw WR WWE MW LOY pe ETT GOT HF OCB Ge 
@ START OF SEGMENT weauteeawen 4 
@ % ? . e , * . . ° 4 


% 
oe y 3 3215 INES 
os z 333815# EF 0 0 0 
TOHESTRA = Blast ae, | B wee bbs sooo T -OoRe 
TOADINFO = 3 [NEC 00273000 t 0084 
TORELADN = 21%33 FA 00274000 yt 0084 => 
UNKNOWN & aa 0 * O08 
ARRAYID = 14s 00276000 T 0084 
VARID sw 29 00277000 Tt 0084 
STMTFUNTD= 382  "“O0B78000 YT 0084 
NAMELIST 3 4#» 00279000 7 0084 
OABECTO abe ; 00280000 T one 
: ae, --90387000-7-~ 00: . 
FUNID = The 00282000 fr 0084 
INTREUNTOS 84, 00283000 tT 0084 
ATE E-oEE “capes aood 7 00aa a 
SUBRID *® 104, 00285000 T 0084 
BLOCKID = 114, 00286000 7 0084 
FILEID #® L2#, ——"""“9OZ87000 F OO8G a 
SUBSVAR = 13%, 00288000 tT 0084 
_EXPCLASS = 14%, 00289000 T 0084 
SBVEXP 00290000 7 O00By 
$4) 00290050 FT 0084 = 
nUMMY = =_ a7 00290300 T 0084 
NUMCLASS ““O0291000 FT 0084 
RESERVED = 29#, 00292000 7 0084 
HEADER = = 308, St a eee 00293000 T 0084 
FNOCOM = 33 ee Resene “—"<“9Q2Z9G000 F ~ 0084 => ener 
T Pp = s c é T 4 
Nee 00296000 Tt 0084 
A Ti 1/1 2a nn ee re ee ee 
LOGTYPE = és» 00298000 T 00864 
_POUBTYPR § 5Re eee eae a 00299000 T 0084 
COMPTYPE = 6#3 “-o0s00000 TY OUBH- 


+ i 


INTEGER STREAM PROCEDURE GETFPB(Q)4 VALUE OF 


FLAGROUTINEFORMATC X44 s Abs A2eKXLecnbo” C“osALo Two) dy 
X¥HEDMCX40e"CROSS REFERENCE: LISTING OF MAIN PROGRAM" s X41 s/s 


X40 eer tam Mean enGe® Bae Beene «2S Beam amamemats YO) ds 


yeaa "CROSS REFERENCE LISTING OF SUBROUTINE "sA6sX3859/5 
Bp Neteme seaman ema Em SE DAME Oe *sA69X% 38)» 

yREDF (X350 "CROSS REFERENCE LISTING OF “sA6sAie"™ FUNCTION “sA6» 

X359/9X35e"eonae Ta seseeeh eeeestee on "sA6sALa" aida alla "sAGs 

x35)» 

a apart REFERENCE LISTING OF et atohcatl d oad 


p ttaaton Sena set®e® Samara woe eeennent X43 


YHEDB (X34 "CROSS REFERENCE LISTING OF BLOCK DATA “SUBPROGRAM" 5X35». 


70X34, Neewom Seen eane Fours ae 88 Seem awae woanmanmnmt X35)» 


SEGEND (X70*" SEGMENT™,I5e" IS"5159" LONG" )S 
ARRAY PMPRT [02312086333 
REAL POINX$ & INDEX OF LAST ENTRY IN POPRT 
REAL TSFGSZ3 % RUNNING COUNT OF TOTAL SEGMENT SIZE3 
COMMENT FORMAT OF PRT&SEGMENT ENTRIES» IN PDPRT3 


DEFINE STYPF= C132]#, % 0 = PROGRAM SEGMENT@SEGMENT ENTRY ONLY 
STYPC= 18468245 % 1 = MCP INTRINSIC 
% 2 = DATA SEGMENT 
NTYPFS C(4t2)#, % O = THUNK = PRT ENTRY ONLY - 
DTYPC= 484632 #2% 4 = WORD MODE PROGRAM DESCRIPTOR 
% 2 = LABEL DESCRIPTOR 
3 CHARACTER MOOE PROGRAM DESCRIPTOR 
PRTAF= (8210]#» % ACTUAL PRT ADDRESS = PRT ENTRY 
PRTAC= 8238210#, 
RELADF = (€18810)#» % ADDRESS WITHIN SEGMENT “PRT ONLY 
RELADC= 1823881085 
SGNOF™ (C28t1o]#» % SEGMENT NUMBER = BOTH 
SGNOC™ 288369108, : 
OKAY = €13%15]7#s ® RELATIVE DISK ADDRESS = SEGMENT ENT 
DKAC = 132332158, 
SEGSZF 3£38810)#, % SEGMENT SIZE = SEGMENT ENTRY 
“SEGSZC #2369363,0#3% MUST BE O IF PRY ENTRY = 7 
DEFINE % SOME EXTERNAL CONSTANTS 
BLKCNTRLINT = Sa, 
 BBEUSS on ong piggy coc oe ee : 
ENDEXTCONDEF 343 
DEFINE POIR = PDINX.C37!S5)#, 


—POIC # POINX.C42t6]#3 


DEFINE cIS = CROCOI]#> % CARD 
TIS = CROCLI#» % TAPE 
eS ce CRUISES OP NEW TIPE eee ee 
LOS = CROC3]#3 % PRINTER 


DEFINE PWROOTROOTeIR»ROOTeIC #+PWIaleIReleIC # 3 
DEFINE GLOBALNEXT@NEXT#3 teat 
BESIN % SCAN FPB TO SEE IF VARIOUS FILES ARE DISK OR TAPE 


BEGIN 
SI « LOC GETFPBS Sy «+ SI = 73 po]. 
SKIP 3 DB 9CIF SB THEN DS ¢ SET EL 5 arg ¢ RESETS | 
SKIP SB)3 
OL * LOC Qs ST * QJ DS * WOSS SI + OF GETFPB * SIS 


ENDS 


ge 


ee 


START OF SEGMENT 


POE DT Ryd ox. cate ta, ho esas 


hg eS 


SS RONe Se ee eee 


a ek acne 


O08g 


OBoag ees 


Gg? He 


00333010 7 0084. 
00333050 tT 0084 
00333055 T 0084 
00333060 7 0064 
00333065 t 0084. 
00333070 T 0084 
00333075 fT 0084 
00333076 tT 0084 
00333080 T 008a 
00333085 T 0084 
— 00333090 FT 
00333095 Tt 0084 
00334000 T 0084 
150 LONG, NEXT SEG 
00335000 T 0084 
00336000 7 0086 
00337000 Tt 0086 
00338000 T 0086 
00339000 T 0086 
00340000 tT 0086 
00341000 Tt 0086 
00342000 T 0086 
60343000 7 0086 
00344000 T 0086 
00345000 fT 0086 
00346000 T 0086 
00347000 Tt 0086 
00348000 t 0066 
00349000 Tt 0086 
00350000 T 0066 
00351000 7 0086 
60352000 T 0066 
00353000 tT 0086 
00354000 T 0086 
~ 00355000 7 . 
00355100 T 0086 
00355110 T 0086 
00355120 7 
00355990 T 0086 
00356000 T 0086 
00357000 + 0086 ~~ 
00358000 T 0086 
00359000 T 0086 
ee 
00361000 tT 0086 
00362000 T 008% 
“00363000 T 
00364000 7 0086 
00365000 T 0086 
eeweeekedan 
00366000 7 0000 
..00367000 T 0000 
00368000 T 
00369000 T 0002 
90370000 fF 0003 
00371000 T 0004 


--——= 


! 


“% *e* Dn NOT DECLARE ANY FILES PRIOR TO THIS POINT» 


DEFINE & 


REAL PROCEDURE SEARCHCE)3 VALUE E3” REAL EF FORWARD) 
“ALPHA PROCEDURE NEEDCTs» C)S VALUE Ts C3 ALPHA Ts C3 FORWARD) 
PROCEOURE EQUuIV(R)3 VALUE RJ REAL RJ FORWARDS _ 


PROCEDURE EXECUTABLE? FORWARD? 


PROCEDURE EMITLC(N)? VALUE N3 REAL NB FORWARDS 


INTEGER STREAM PROCEDURE GNCCQ)3 VALUE Q3 
BEGIN ST * gs SI * SI + 73 DI * LOC GNCH DI + DI +73 DS CHR ENDS 


INTEGER FPRBASE3 
FPBBASE ¢ GETFPB(3)3 
TIS ¢ TOS ¢ 503 CIS « LOS « 03 
IF GNCCFPBBASE+3) x12 THEN CIS ¢ 1503 % CARD 
IF GNCC(FPBBASE+8) mi12 THEN LOS ¢ 1503 % PRINTERS 
IF GNCCFPBBASE+13) = 12 THEN TOS + 1503 & NEW TAPES. 
IF GNCCFPBBASE+18) =12 THEN TIS # 1503 & TAPE 
END3 
BEGIN COMMENT INNER BLOCK3 


DO NOT ALTER 
% SEQUENCE OF FOLLOWING FILE DECLARATIONS | 
FILE CARD (5910sC1IS)3 


DEFINE LINESIZE = 900 # $ 
SAVE FILE LINE DISK SERIAL C2O0%LINESIZE) (2915eLOSsSAVE 1093 


SAVE FILE NEWTAPE DISK SERIAL f20:LINESIZE) “FORS YM" C2s10sTOSsSAVE 10)3— 


FILE TAPE “FORSYM”® (2,10eTIS)3 

FILE REMOTE 19¢2010) 3 

DEFINE CHUNK =180#3 

DEFINE PTReLINE#sRITESLINE Ss CRECARD#s TPETAPERS © 

FILE CONE DISK RANDOM C20tCHUNK] (€46530,SAVE ABSCSAVETIME))3 


Is 


FILE LIARARYFIL OISK RANDOM €2910995098 ccc ee nent 


DEFINE LF = LIBRARYFIL #3 

FILE XREFF DISK SERIALC2011500)(2sXRBUFF) 3 

FILE XRFFG DISK SERIALC20%15001(2s3sXRBUFF D3 

REAL DALOC3 % DISK ADDRESS 

LABEL PaSTWRAPYPS 

PROCEDURE EMITNUMC(N)$ VALUE N3 REAL N3 FORWARDS 

REAL PRnCEOURE LOOKFORINTRINSIC(LY3 VALUE LS 

PROCEDURE SEGOVF3 FORWARDS 

DEFINE RUMPADR® IF CADR¢ADR+1)"4089 THEN SEGOVF#S 

DEFINE BUMPLOCALS = BEGIN IF LOCALS*LOCaLS+1>255 THEN BEGIN FLAGCT48)3~ 
LOCALS¢2 END END#3 

BUMPPRT@BEGIN. IF PRIS¢PRTS41>1023 THEN BEGIN FLAG(46)3_ 


REAL CS” 


~PRTS¢460 END END#S ray en oe 


FDOCY = ADR,L3683), ADR.LC3I987)#3 
TWODPRT@IF TWODPRTX=#0 THENCTWODPRTIX#PRTS¢PRTS#1 ELSE T TWODPRIX#S 


DEFINE 
DEFINE =peviaeae 
PROCEQURE PRINTCARDS FORWARDS 
INTEGER PROCEDURE FIELOCX)3 


VALUE X3 INTEGER X3 FORWARD 3} 


ALPHA PROCEDURE GETSPACECS)3 VALUE Ss ALPHA S3 FORWARD3 


ALPHA PROCEDURE B20(B)3 VALUE Bs REAL B3 FORWARD3 
PROCEDURE DEBUGWORD (N)J VALUE NJ REAL NS _ FORWARDS 


PROCEDURE ADJUSTSFORWARDS 


“FORWARD 3° TT 


00373000 T 0005 
00374000 t 0008 
00375000 t 0008 
00376000 T 
00377000 tT 0015 
00378000 t 0019 
00379000 F O0ss 
00380000 tT 0027 
00381000 T 00314 
32 LONG, NEXT SEG 
00382000 rT 0088 
00383000 t 0088 
00384000 t 00868 
00385000 r 0088 
START OF SEGMENT seetttutes 
00386000 T 0004 
00387000 T 0004 
00388000 tT 0011 
“00389000 T O19” 
00389500 7 0023 
00390000 t 0027 
~~ O0ITTODO P O02? 
00392000 T 0027 
00392400 T 0035 
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PROCEQURE 
PROCEDURE 


PROCEDURE 


DATIME3. FORWARD} 
EMITBCAsC)3 VALUE AsC$ REAL A$ BOOLEAN C3 


FYIXBCN)S VALUE N3 REAL N3 FORWARD3 


“FORWARD3;— 


90407500 | 


BEGIN Drea3 


PROCEDURE EMITN(N)3 VALUE N3 REAL NJ FORWARDS | 

PROCEOURE EMITOPOCLITCN)S VALUE N3 REAL N3 FORWARDS 

PROCEDURE EMITDESCLITCN)S VALUE N3 REAL N3 FORWARDS 

PROCEDURE EMITPAIR(L*OP)3 VALUE LsOPS INTEGER Le OPS FORWARDS 
PROCEDURE EMITNCN)3 VALUE N3 REAL N3 FORWARDS 

PROCEDURE ARRAYDECCI)3 VALUE I3 REAL I3 FORWARDS 

INTEGER PROCEDURE ENTERC(Ws £)3 VALUE Ws E3 ALPHA Ws ES FORWARDS 


REAL PRMCEOURE PRGDESCBLORCAsB»C20)3 VALUE AsBrCoO03 REAL ApBoCsD3 2 2 2 22 


FORWARD} 
PROCEDURE WRITEDATACAsBsC)3 VALUE AsB3S REAL AsBS. 
“"RRRAY CCOUF | 
PROCEDURE SCAN3 FORWARD3 
PROCEDURE SEGMENTC(AsB,CoD)3 VALUE Ar Bo C3 bide Sin cade Gs Bee 
REAL A»B3 BOGLEAN C3 ARRAY 0C0,0)3 FORWARD3 
STREAM PROCEDURE MOVESEQCOLD»NEW)3 BEGIN DI©OLD3 SIeNEWS 
PROCEDURE WRITAROW(N*ROW)? VALUE N3 INTEGER NJ REAL ARRAY ROWCO) 3 


IF SINGLETOG THEN WRITECLINEsNsROWL*)) ELSE WRITECRITE*N»sROWL*)) 3 


PROCEDURE WRITALISTCFMT Nel i sL2sL3eLO ol SeoL6eoL7sL8) 3 
VALUE NoLieL2eL3eL4ebSelLOolL7eL83 INTEGER N3 
REAL LisL2sL3eL4elSeL6el7oL83 FORMAT FMT 3— 
BEGIN 
PRINTBUFFECIJeL1 3 
Liel 3 pee 
FOR L2eL2eL3eL4eoL ool 6eL7eL8 DO PRINTQUFFECLi*Li+i1]eL2 3 
IF SYINGLETOG THEN WRITECLINEsFMTsFOR Liel THRU N OO PRINTBUFFEL1)) 
ELSE WRITECRITE*FMTsFOR Liet THRU N DO PRINTBUFFEL1]) 3 
END wRITALIST 3 


STREAM PROCEDURE BLANKITCA»NsP)S  \ 
NeDSe8 LIT" "3 


VALUE NoeP3 


BOOLEAN STREAM PROCEDURE TSSMESCAsB)$ VALUE Bs 
BEGIN Sre*As SKIP B S83 IF SB THEN ELSE BEGIN TALLYe 13s 
DIeAs; skIP B OBS OSeSET END END OF TSSMES 3 


STREAM PROCEDURE TSSEDITCKXsPLeP2eP3SaPONTF “VALUE PL eP20P SIN OF Oo 
OSeaLIT” "3 


BEGIN OYe¢P30S*¢16LIT"TSS WARNING! "SST¢XIST©SI4+23 DS*6CHRS 


FORWARD ETT Tr rr rrr meter connate 
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PLCOS*4aLITvA TSS _HOL OR QUOTED STRING MUST BE ORS 1 LINE. «3 4 Siok: 


P2CDSe4RLIT*THYS CONSTRUCT IS ILLEGAL IN TSS FORTRAN 
P3COS¢4ALIT*THIS CONSTRUCT IS UNRESERVED IN TSS FORTRAN ") 


; 
DSe26LIT™ "Ss OSeBLITw*"s DOSeLIT™ "5 SIeLOC NS DS¢3DEC END TSSEDIT $ 


PROCEDURE TSSED(XsN)3 VALUE XeN3 ALPHA X3$ INTEGER N 3 


BEGIN IF NOT (LISTOG OR SEQERRORS) THEN PRINTCARD 3 UNPRINTED¢FALSE 3 


TSSEDIT¢XeNeleN@2eN335PRINTBUFFoNARNCOUNT¢WARNCOUNT SI) J 
WRITAROWC14sPRINTBUFF) END OF TSSED $ 


PROCEDURE ERRMESS(N)3 VALUE N# INTEGER N3 
BEGIN 


STREAM PROCEDURE PLACECO*NeXeSsEeL)3 VALUE NoE 3 


BEGIN Dr ¢ DS OS * 6 LIT "ERROR *3 
Sy ¢ LOC N3 OS ¢ 3 DEC3} DS ¢« 5S LIT *8 "3 
St ¢ x3 SI © St + 23 OS © 6 CHR; DS + SLIT ™ 3 


St#S$ OSe6 WOS$ DS*6 LIT" "$3 SreLs OS*8 CHRS OSe14 LITR 3 | 


DS ¢ A LIT "X*S DS © LIT " 3 
St ¢ LOC £3 OS + 3 DEG3 
END PLACES | 
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BEGIN DI#D3 DS*4_LIT"ERR#™3 SIeLOC N3 OS¢3 DECS DSe+3LIT" © ™ 3 
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PcOryeDre543 OSe2LIT" "3 STeM$. OSe44CHR3 OSeBLIT™ ") 3 
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IF NOT MSFLEN pIV 16] THEN 
BEGIN 
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"TOO MANY", LEFT PA™s"RENTHESE™ 2 9S a a 2 eae 
"TOO MANY," RIGHT P"s*ARENTHES*s "ES wy" Nye 
"FORMAL Ps,"ARAMETER"," ILLEGAL™s" IN COMMS "ON wy" 


"FORMAL P*s"ARAMETER",»"” ILLEGAL™s" IN EQUI™»"VALENCE “o® 


"THIS STAMS"TEMENT I"s"LLEGAL I™s"N BLOCK "s"DATA SUB"s "PROGRAM 


"INFO ARRs"AY QVERF™s"_ OW — to" wy" wn 
"IMPROPER, “on NEST", ” a ad "ye ee us ae 
"D0 LABEL» PREVIOU"s"SLY DEFI"s "NED "yn wn 
O$ 
FILL MESSAGEC1»*) WITH 

"UNRECOGN"s "IZED STAs "TEMENT The" YPE m,t wu 
ILLEGAL BDO STATES HUERNT " Ueg wo aya oa 
"FORMAT S*,"TATEMENT%s" MUST HAMS "VE LABEL» Wyn 
"UNDEFINE™s"B LABEL "5" yn ar ae a he 
"MULTIPLE™»s" DEFINIT"s "ION "yn w,n myn 
"ILLEGAL “s*IDENTIFI"S"ER CLASS"s" IN THIS™s™ CONTEXT%s" 
"UNPATRED™s™ QUOTES “,"IN FORMA* A" T ee ea. « "ae" 
"NOT ENDU"s "GH SUBSC%,*RIPTS tee wi, se 
"TOO MANY"s” SUBSCRI"s"PTS Wyn "," yn 


"FUNCTIAN*'s" OR SUBR"s"OUTINE PYo"REVIQUSL™s"Y DEFINE™ 9 "0 


"FORMAL PY,"ARAMETER)” MULTIPL"s™Y DEFINE" S"D IN HEAMS*DING 


"ILLEGAL “s"*USE OF N™,"AMELIST oa" wy Wyn 
"NUMBER OMs°F PARAME™,"TERS INC™S"ONSISTEN*S "T Wet 
"CANNOT BY,"RANCH TO"," FORMAT “s"STATEMEN*»"T = = MyM 
“SUBROUTI®, "NE OR FU","NCTION N*¥e"O7T DEFIN'S "ED IN PR" s"OGRAM 
Ge ERE SEN ane ao sie: tee mpseeban ae tbe se meeneetone tac 
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FILL MESSAGE(2s«] WITH 

"ILLEGAL “s"FORMAT S™s"YNTAX = "at 0 Hy 
"INCORREC™s"T USE OF",” FILE i da bat Fee 
"INCONS S*"s,*TENT USE", OF IDEN" S*TIFIER %)" a ey 
WARRAY TO". "ENTIFIER s® EXPECTE%s "0D wy" ie as 
"EXPRESSI“.s"ON VALUE"s*® REQUIRE™s"D w,tt Wyn 
“ILLEGAL “s"FILE CAR s9D SYNTAX"s" = = = ge 
"ILLEGAL “s"CONTROL “,"ELEMENT "o" wy" i dd 


"DECLARAT"»"ION MUST," PRECEDE"»™ FIRST Rs"EFERENCE"#" 
"INCONSTS"»"TENT USE"s” OF LABE*s"L AS PAR s"AMETER  "o™ 
"NO, OF PMSMARAMS, O"s"ISAGREES"#" WITH PR™S"EV, REFE"* "RENCE 


"ILLEGAL "s"USE OF F™,"ORMAL PA" »*RAMETER "2" a 
"ERROR YN", HOLLERI*,*TH LITERS 9 AL CHARA™s"CTER COU"S*NT | 
"ILLEGAL “"s"ACTUAL P™,"ARAMETERM»” air hd et a 
"TOO MANY,” oe "S IN SOU"s*RCE PROG*»"RAM == yh 
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FILL MESSAGE(C3s*) WITH 
"ILLEGAL "o"I/O0 LIST’s" ELEMENT" 9” eM em ae 8048 | 
"LEFT SrO"%./"E MUST B"."E SIMPLE"** OR SUBS» Pe "a"VARIABLE"s %049 
"VARIABLE" 2" EXPECTE™ 2 "0 eect kere mre a” Leader Oe Mick au 3050 __ 
"ILLEGAL "s"USE OF e's "OR, ee ail Wy" Me %051 
"ILLEGAL “s"USE OF ."»"AND, "a" mgt ‘er "ps %052 
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00445000 T 0034... 
00446000 fF 0034 
00447000 t 0034 
00448000 + 0034 
00449000 rt 0034 
00450000 fr 0034 
00451000 T 0034 _ 
00452000 7 0034 
00453000 T 0034 
97 LONGs, NEXT SEG 
00454000 Y 0034 
00455000 ry 0038 
SEGMENT wawketweww 
00656000 tT 0036 | 
00457000 t 0036 
00458000 T 0036 
00459000 tr 0036 
00460000 rt 0036 
00461000 TF 0036 
00462000 T 0036 
00463000 tr 0036 
06464000 T 0036 — 
00465000 ~ 0036 
00466000 7 0036 
00467000 + (0036 
00468000 y 0036 
00469000 Tt 0036 
00470000 -r 0036 
““OO471000 T 0036 
97 LONGs NEXT SEG 
00472000 T 0037 
~"060473000 f 0637 — 
SEGMENT svanbtakew 
00474000 T 0039 
~O0475000 7 00396 
00476000 T 0039 
00477000 ft 0039 
00478000 yr O039  — 
00479000 Tr 0039 
00480000 T 0039 
00481000 7 0039 
00482000 T 0039 
(00483000 7 0039 
~ 00684000 7 0039 
00485000 Tt 0039 
00486000 tr 0039 
00487000 YT 0039 
00488000 T 0039 
00489000 7 0039 mets 
97 LONG» NEXT SEG 
00490000 +r 0039 
00491000 T 0040 
SEGMENT seatetawee 
00492000 7 0044 
00493000 7 OOM; 
00494000 y 004; 
00495000 Tt 0044 
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A ele " LL wee Wy "” to " 
wit LEGAt we abee BE Aes “PAT TONAP SME OPERAT", "OR “se "s roe, 
"ILLEGAL “s"MIXED TY",*PES a win yn *, £055 
"ILLEGAL “s"EXPRESSI","ON STRUC"* "TURE wi" myn ", %056 
"ILLEGAL “s"PARAMETE",»"R myn wy myn *, %057 
"RECORD BYs"LOCK GRE","ATER THA#"N 1023 te” m,n ", 3058 
"TOO MANY"s" OPTIONA™s"L FILES a” "fn wy" ", %059 
“FILE CaRts"DS MUST ","PRECEDE *s"SQURCE Dits"ECK myn ", %060 
"BINARY W'SPRITE STA™S"TEMENT H%2 "AS NO LIS "ST myn ", 2061 
"UNDEFINE*s"D FORMAT",»" NUMBER “s” | "it "yn ", %062 
"ILLEGAL "s"EXPONENT%," IN CONS"s "TANT wn Watt “, £063 
03 

FILL MESSAGEC4**1] WITH. 
"ILLEGAL “s"CONSTANTs”™ IN DATA™®™ STATEME%S°NT myn ", %064 
"MAIN PRO","GRAM MIS™,"SING wn w," ur) ", 
"PARAMETE™S"R MUST BYs"E ARRAY “s*IDENTIFIMS"ER 1," ", %066 
"PARAMETE'S"R MUST B',"E EXPRESS» "STON wy Wyn ", £067 
"PARAMETE',s"R MUST BY,"E LABEL ‘s" A wan ", %068 
"PARAMETE™*S*R MUST B™s"E FUNCTI“S"0N IDENT*S*IFIER myn *, %069 
"PARAMETE™s"R MUST B's"E FUNCTI"*"0ON OR SU*s"BROUTINE'®” ID ", ¥070 
"PARAMETE™S*R MUST BY,"E SUBROUMs"TINE IDE*S"NTIFIER “eo” ", S071 
"PARAMETE™s"*R MUST B's"E ARRAY “s"IDENTIFI"%s"ER OR EX*s"PRESSION',s %072 
"ARITHMET@s*IC = LOG"s"ICAL CON**"FLICT ON"s” STORE toh ", £073 
"ARRAYIN “s"MUST BE “s*SUBSCRIP">s"TED IN T*s"HIS CONT s EXT. *, 3074. 
"MORE THA™s"*N ONE MA™,Z"IN PROGRs "AM n,n Wytt ", 075 
"ONLY COM%s"MON ELEM"S"ENTS PERMs"MITTEQD My" myn ", 076 
"TOO MANY"," FILES "," ase ee wea ee 
"FORMAT Of,°R NAMELI","ST TOO Ls "ONG wy W440 ", %078 
"FORMAL PY,"ARAMETER"»” MUST BE"#" ARRAY I"s"OENTIFIET#"R ", %079_ 
bs sue feet 

FILL MESSAGE(S5»s*) WITH 
"FORMAL P*,"ARAMETER".% MUST BEMs* SIMPLE *s*VARTABLE% 2" ~ *, ¥080 


» %0B1 
» %*082 
» 4083 


WEORMAL PMs"ARAME TERMS" MUST BE"2% FUNCTIONS N [DENTIN ® "FIER 
MFORMAL P¥,*ARAWETER",” MUST BE*9" SUBROUTW>"INE IOEN*>*TIFIER 
"FORMAL P™s"ARAMETER™»” MUST BE%#" FUNCTIO"S"N OR SUB" * "ROUTINE 


"DO OR rM"-"PLIED OO"," INDEX M"*"UST BE IMs"NTEGER OM e"R REAL ", %084 
"TLLEGAL “s*COMPLEX ‘s"CONSTANT"#® we aye . 

"ILLEGAL “s"™MIXED TY"s"PE STORE," Ww," a al » ¥086 
"CONSTANT >" EXCEEDS» HAROWAR™S"E LIMITS 5" Wy" » %087 


"PARAMETE"s"R TYPE C™S*#ONFLICTS*s#* WITH PRYS"EVIOUS UMs"Se > 
"COMPLEX "s"EXPRESSI™,°0N ILLEGts"AL IN IF %s" STATEME*SNT 
"COMPLEy "s"EXPRESSI"»"ON ILLEG™>"AL IN RE“*"LATION "os" 
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"COMMA AR™>* RIGHT PYL"ARENTHES*s "TS EXPEC*S "TED | i) a Sue 1°1-7 
"ARRAY AL"s*READY GI"s"VEN BOUN*S "DS a id a » %095 
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00518000 T 0044 
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~ 00822000 F 
00523000 T 0044 
00524000 tr 0044 
~ 00525000 7 0044 — 
97 LONG» NEXT SEG 
00526000 T 0044 
“"00527000 t 60485 — 
START OF SEGMENT xwewtewtus 
00528000 T 0046 
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"SUBSCRIP™s"T MUST BY."EF INTEGE*"R OR REA "L re os ", 8098 
"ARRAY SIMS"ZE CANNO"S"T EXCEED%s" 32767 Ws"ORDS wan ", %099 
"COMMON OM%s"R FQUIV "s"BLOCK CA™*"NNOT EXC™S"EED 3276%9"%7 WORDS "» %100 
“THIS STA"s"TEMENT I"s"LLEGAL Io"N LOGICA"s"L IF "yn ", %101 
"REAL OR “,"INTEGER ","TYPE REQ™s"UTRED  ,™ “yn —™, 3102 © 
"ARRAY BO™S*"UND INFO"S*"RMATION "s*REQUIRED»" "," , %103 
"REPLACEM™s"ENT OPER" »"ATOR EXP™*S"ECTED ," w,n ", %104 
"IDENTIFI" S"ER EXPEC"s"TED Wyn wen Hy ", £105 — 
"LEFT PAR™s,"ENTHESIS"," EXPECTE'» "D ye wt ", ¥106 
"ILLEGAL "s"FORMAL P"s"ARAMETER"»" a "yn ", %107 
"RIGHT PA™S"RENTHESIs"S EXPECT’ S"ED ,” myn ", %108 
"STATEMEN*."T NUMBER"," EXPECTE Ts "0 w," Wyn ", %109 
"SLASH FX"s"PECTED "ys" wy" wi" Wyn “, ¥110 
aoe ST™>s"ATEMENT “s"CANNOT BYe"EGIN PRO™s "GRAM UNI Ms "7 ", S191 — 
3 
FILL MESSAGEC7»*] WITH 

"ARRAY MU"s"ST BE DI"s"MENSTONE™2"D PRIOR “s"TO FQUIV's” STMT “y &142 
"INTEGER “s"CONSTANT"»” EXPECTE"s "0 wy Wyn ", £143 
"COMMA FX™S"PECTED 5” m,n wt myn , 21144 
"SLASH ORs” END OF “"s,"STATEMEN™S"T EXPECT" s "ED "yn ", %115 
"FORMAT, "*sARRAY OR," NAMELIS"s"7 EXPECTS "ED ge ", %116 
"END OF S*s"TATEMENT"s” EXPECTE#"D "," Wet ", Z1147 
"IO STATE™s "MENT WIT"s"H NAMELI%9 "ST CANNO"S"T HAVE 1"s “O LIST "“» B118 
"COMMA AR," END OF "STATEMENTS" 7 EXPECT", "ED fn ", £119 
"STRING tT, "00 LONG wit Le eal wn wy, re ", %120 
"MISSING "s"@UOTE ATs" END OF “»#"STRING "5" yn ", $124 
MTLLEGAL "CARREY BO" MUNG eae wp mo owpa yg BL 
"TOO MANY"»s" HANGING",”® BRANCHES *S "yn ",0 ", %123 
"TOO MANY", COMMON ",*QOR EQUIV™*S"ALENCE E"»"LEMENTS “a” ", 4124 
"ASTERISK"s" EXPECTE",%D =~ “Wye “48” 7 ree <o-Le 
"COMMA OR." SLASH E","XPECTED ta” w," “," *, %126 
"DATA SET"s" TOO LAR"s"GE Wyn "yt yn ", %127 
ne Lt ae see aed ae 


FILL MESSAGEC8s*) WITH 


"TOO MANY*s* ENTRY S™s*TATEMENTYs*S IN THIW,"S SUBPROWS"GRAM WS” 


"DECIMAL, 
"UNSPECTF"s"IEN FIEL%,"0 WIOTH %»" 
"UNSPECIF's"IED SCAL"s"E FACTOR's™ 


"ILLEGAL “»"FORMAT C™s"HARACTER"s* 


WUNSPECTF®,*LEp DECIY,"MAL FIEL"»"D 


"s"WIDTH EX"s"CEEDS FIM*"ELD WIDT%#"H “es 


“> 
wf "," 
wt v0 
i ae wan 
we a 


"DECIMAL ","FIELD IL","LEGAL FO"s"R THIS SM» "PECIFIERMs " 


“RETURN, “s*STOP OR "s*CALL EXI*e*T REQUIR®S "ED IN SU*>*R PROGRAM 


"ILLEGAL, ye mL ABEL eS a Wyn yn 
"UNDEF INE", #0) NAMEL T iw " § 7 oe tS “Wy tt nee et ag “Wy, eee De OSS ae 
"MULTIPLY." DEFINED", " ACTION "s"LABELS '%)" myn 
"TOO MANY"s" NESTED “s"DO STATE» "MENTS =," edt Dd 
"STMT FUN» "CTION DY, AND EXP"s"RESSION "s*DISAGREE"»" 7 
WILLEGAL " e"USE OF S*,"TATEMENT%o% FUNCTION» *N Wye 
"UNRECOGN™s "IZED CON"»"STRUCT >" w," w," 


"FORMAT Ns"UMBER US"» "ED PREVI"»"QUSLY AS*s” LABEL “at 


FILL MESSAGE(9s*] WITH 


= 
. 
ae 
cama 
oi 


~~ e vie eet 
ine ! 
roy } 
ws 
nN 


i 3 3223 3} 2 2 3/3 


00547000 7 0049 
00548000 Tt 0049 
00549000 T 0049 
00550000 t 0049 _ 
00551000 7r 0049 
00552000 7 0049 
00553000 rT 0049 
00554000 7+ 0049 
00555000 r 0049 
06556000 T 0049. 
00557000 t 0049 
00558000 7 90049 
00559000 rt 0049 
00560000 + O049 °° 
00564000 r 0049 
14 1S | 97 LONG, NEXT SEG. 7 
00562000 T 0049 
00563000 Tt 0050 
_ START OF SEGMENT seutwtwewe 15 
00564000 7 0084 
00565000 yr 00S, 
00566000 YT 0051 
00567000 + ‘0054 
00568000 7 005, 
00369000 T 0054 
00570000 T 0054 
00571000 + 0054 
00572000 Tt O05; | 
00573000 T 0054 
00574000 r 0054 
00575000 rt 0084 
00576000 + 0054 
00577000 yr 00514 
00578000 7 OOS, 
00879000 t “O0sy 
i5 1S 97 LONGs NEXT SEG 7 
00580000 rt 0050 
~~ 60581000 fT 0053 
START OF SEGMENT «exwetintan 16 
- 00582000 t 0054 
00883000 - 0054 
00584000 7r 0054 
00585000 7 0054 
00586000 T 0054 
00587000 r 0084 
00588000 T 0054 
00589000 tr 0084 
00590000 Tf 0054 
00591000 7 0054 
00592000 T 0054 
00593000 yr 0054 
_.00593001 7y 0054 
00593002 7 
00593003 7 90054 
90594000 ~ 0054 
16 1S 97 LONGs NEXT SEG 7 
00595000 rf 0054 


@ 
s 


+ 
a 


@ 
@ 
"LABEL uS"»"ED PREVI™s "OUSLY AS"»”™ FORMAT “s"*NUMBER "a" "sp S144 00595001 Tr 0055 
START OF SEGMENT «evatwtewen 17 
"NON®STAN"S"DARO RET"s"URN REQU"s "TIRES LABYs"EL PARAM s"ETERS ", %145 00895002 r 0056 e 
"DONUBLE O%s"R COMPLE"s"X REQUIR™s"ES EVEN "s"OFFSET "o™ ", 2146 00595003 T 0056 
“FORMAL P',"ARAMETER",»" ILLEGAL™s® IN DATA*%®" STATEME™SPNT — ", 3147 00595004 7 “0056 
"TOD MANY™s" LOCAL V™s"ARTABLES"2" IN SQUR"s"CE PROGR» "AM ", %148 00596000 T 0056 @ 
"A SFREEF™s"ORM SOUR"s"CE LINE “"#"MUST HAV"S"E < 67 C%*"OLS ", %149 00896001 T 0086 
"A HOL/ST™s"RING UNOM,"ER SFREE™S"FORM MUS*s"T BE ON "s"QONE LINE, 2150 _ 005960602 7 0056 ~ 
"THIS CON"s*STRUCT I%s"S ILLEGAT#"L IN TSS"s" FORTRAN" ", %184 00896003 7 0056 r 
PILLEGAL "s"FILE CAR™s"D PARAME"s"TER VALU» "E myn ", %152 00596004 7 0056 
RETURN TM WN MAIN P®CMROGRAM NYS "OF ALLOWMEMEG coop og teg ag 5-P "00S pe 
WNON@POST"s"TIVE SUB™s"SCRIPTS "SARE ILLES "GAL ia ", 3154 00596006 T 0086 @ 
"NON®IDEN"S"TIFIER U"s"SED FOR "*"NAME OF "s"LIBRARY “»"ROUTINE "» 3155 00596007 Tt 0086 
“HYPHEN E"s*XPECTED "5% — “Wty wy" Wyn %, £156— “90596008 T 0056 
"SEQUENCE™,” NUMBER " PMEXPECTEDMs™ win myn ", %157 00596009 rT 0056 @ 
"TOO MANY"s" RECURSI"s"VE CALLS"»" ON LIBR*s"ARY ROUT" SINE ", %158 00596010 7 0056 
"ASTERISK"s" NOT ALU™s"QWED ID **s"READ STA*S"TEMENT %s* = *, 8159 ~ O0596011 7 0056 
03 00896500 T 0056 & 
eek teat a . 17 1S 97 LONGs NEXT SEG 7 
FILL MESSAGEL10s*)] WITH . 005965014 Y 0057 -- - 
"ASTERISK", ONLY AL™s"LOWED IN%>” FREE FI" e"ELD OUTP*o"UT ", %160 00596510 ; 0057 o] 
START OF SEGMENT «eetteawew 18 
"TOO MANY» #@ED LI"S"ST ELEME***NTS IN Op "PUT myn ", S161 00596511 T 0059 
"HOL OR Q"s"UOTED ST*s"RING > 7%s" CHARACT*S"ERS IN E™e"XPRESSN ", %162 00596512 T 0059 @ 
"DECIMAL “s*FIELD GR","EATER TH 2"AN FIELD%»”" WIDTHS5 "9" ", %163 00596513 T 0059 
"PLUS NoTts” ALLOWEO".s* IN THIS%s” FORMAT “s*PHRASE "“s*® | Ms, F164 00596514 tf 0059° 
"K NOT aL™s"LOWED IN ,™ THIS FO» "RMAT PHR"*s "ASE w,* ", %165 00596515 YT 0059 @ 
"S$ NOT aAL"s"LOWED IN"s" THIS FO%s"RMAT PHR%» "ASE myn ", %166 00596516 7 0059 
"INTRNSCS*,"@NAMD FUTS"NCT MUST%9™ HAV PREP 2"V EXTRNL 9” REFERNC"s %167 (00896517 T 0059 ~ 
"DATA STM%,"T COMMON," ELEM MU"s*ST BE IN es" BLK DAT"s"A SUBPRG"» 2168 005396518 T 0059 @ 
"VARTABLE™," CANNOT ","BE A FOR"»"MAL PARA™S"METER ORs" IN CMMN", 3169 00596519 T 0059 
"CURRENT “s*SUBPROGR"S"AM ID EX*S "PECTED 57 go Me T1700 00596520 tT O0S9° © 
"SUBPROGR*s"AMs EXTE"s"RNAL» OR" ARRAY I%e"O EXPECTS "ED t, S174 00596521 ry 0059 @ 
"REPEAT, "s"WINTH» A™»"ND DECIM™*"AL PARTS"»” MUST BE“s" < 4091 ", %172 00596522 7 0059 
"REPEAT P™s"ART MUST"s" BE EMPT®9"Y OR > OM" AND < &%s"O91- “p 81730 00596523 T° 0059 
"IN SUBPR™s"GMEVARBL"s” IS USED%s" PRIOR Ts"0-USE IN» DATSTMT"» S174 00596524 TY 0059 & 
"SYNTATYC™s"AL TOKEN,» * CONTAIN'#"S TOO MAYS "NY CHARA" S"CTERS, “p %175 00596525 7 0059 
. pees aN abled hes a or 
18 1s 97 LONGs NEXT SEG 7 r 
FILL MESSAGEL119«) WITH Se, Pee ee eae ee at ate 00596527 T 0059 
"INTEGER *,"VALUE OF." 8 EXPEC» "TED ae a *, 3176 | 06596528 tf 0060 — 
START OF SEGMENT waeettunnn 19 s) 
mENTEGER "S"VALUE OF"s” 4 EXPEC™s "TED ity6 wm ", %177 008968529 T 0064 
MINTEGER *e*VALUE FMS" aOR 8 WsEXPECTEDM S&T Wg WENT gO OORIeBID FOE 
TAN ALPHA*S"BETIC LE"S"TTER CAs"e"BoCosgestoMZ) IS RE"S"QUIRED “» %179 00596531 T 0064 e 
"SECOND R™s"ANGE LET"s"TER MUST%s™" BE GREA™s"TER THAN"»s* FIRST “, £180 00596532 T 0064 
“IMPLICrT%s* MuST BE™,* FIRST S*s*TATEMENTYS"” IN PROG*s"RAM UNIT, 3781 == “OOSDOSIS fF OOS6G Lee 
MREAL/INT™s"EGER/LOG" "ICAL /COM*s"PLEX/DOU"s"BLEPRECI"s"SION REQ"s %1482 00596534 T 0064 & 
"ILLEGAL ","USE OF A™s"STERISK "»"FOR RUN@"s "TIME EDI" “TING | 00596535 c 0061 
 WNO PRAGR","AM UNIT "s*FOR THIS,” ENG STA", *TEMENT SE eS a ge “00596836 ¢ 006: ~ a. 
00596599 YT 0063 Fo] 
 \ a ee 19 IS S55 LONGs NEXT SEG 7 
END REL STATEMENTS UT rr rr ne nc cect eee “e063 
\ START OF SEGMENT «senetaeee 20 r 
a Cepia BL te Gait tt Megtiahe dees. cude aanaeios Baus tee e 20 18 13 LONG, NEXT SEG 7 
ar ve ce of pecan tn nee en a BR ge ce en 
IF DCINPUT THEN 00598000 T 0062 @ 
. . ‘e e * * - * v a @ 


& ‘ 
: e 


bz 


IF TSSMESTOG THEN TSSMESCTSSMESALCN@LIDIV 48) 
ENTIERCCN@=1) MOO 48)) ELSE FALSE) 3 
WRITECREMOTEs9*ERRORBUFFC«I) 3 
END 3 
IF LISTNG OR NOT OCINPUT THEN 
BEGYN 
PLACE CERRORBUFF sNeXTAsMESSAGECN DIV 1696*%(N MOD 16)]sERRORCTs 
_ LASTERR) 3 . 
WRITAROWCL42ERRORBUFF) 3 
END 3 
MOVESEQ(LASTERR»LINKLIST) 3. 
END ERRMESS} 


PROCEDURE FLAGROUTINECNAMELsNAMECsSENTE..ING) 3 
VALUE NAME1sNAME2s ENTERING 3 
ALPHA NAaME1sNAME2 3 
BOOLEAN ENTERING 3 
IF ENTERING THEN WRITALISTCFLAGROUTINEFORMAT» 7s "ENTERI"s "NG*sNAME 1» 
NAME 29"4+"sF TELDCFLAGROUTINECOUNTER*FLAGROUTINECOUNTER#*! )» 
FLAGROUTINECOUNTERSO) ELSE 
BEGIN 
WRITALISTCFLAGROUTINEFORMATs 7o"LEAVIN"' 9 "G a eda Edie 
FIELOCFLAGROUTINECOUNTER) sFLAGROUTINECOUNTER,SO) 3 
FLAGROUTINECOUNTEReFLAGROUTINECOUNTER@1 3 
END 3 


SEND OF FLAGROUTINE 
PROCEDURE FLAGEN)3 VALUE NS INTEGER N3 
IF NOT FRRORTOG OR DEBUGTOG THEN © 


BEGIN 
IF NOT (LISTOG OR SEQERRORS OR OCINPUT) THEN PRINTCARD 3 
ERRMFSS(N)3 
IF ERRORCT > LIMIT THEN GO TO POSTWRAPUPS 

END3 


PROCEDURE FLOGCN)# VALUE N3 INTEGER NS 
IF NOT FRRORTOG OR OEBUGTOG THEN 
BEGIN ERRORTOS ¢ TRUE 
IF NOT CLISTOG OR SEQERRORS OR DCINPUT) THEN PRINTCARD 3 
ERRMESS(N)S) oe eee 
IF ERRORCT > LIMIT THEN GO TO POSTWRAPUP3 
END} 


CECERRORBUFFsN»XTA»LASTSEQ»MESSAGFEN DIV 1606x(N MOD 16))5 


— 00596080 — 


990398020 


060598140 


00598200 | 


00598040 
00598050 
00598060 


00598100 
00598120 


00598160 
00598180 


00599000 
00599500 


00600000 T 


00610000 T. 


“00600010 FT 


00600020 fT 
00600030 T 
00600040 Tf 
00600050 T 


(00600060 7 


00600065 T 
00600070 T 
00600080 7 


“00600090 7 01 


00600100 T 


00600120 T 
00601000 fT 


006602000 T 61 


00603000 fT 


00604000 7. 


00606000 T 
00606500 T 


00607000 T - 


00608000 T 


00609000 T_ 


00611000 T 


.00613000 FT. 


00613500 7 
00614000 T 


TOE Se ee 


0063. 


0063 
0068 
0074 


0075) 


0079 
0079 


0082 
0086 


0087 


008@ 
0088 


0096 
92 LONG», NEXT SEG 


00600110 TF OL 


a1; aaa de 


6 


ee 


DURE FATALCN)3 VALUE N3 INTEGER N 3 
FORMAT FATALERRO™XXXXXXXX%» X18e 


mu 
™20 
om 
=o 
2m 


"PREVIOUS ERROR IS FATAL = REMAINDER OF SUBPROGRAM IGNORED» 
XAT 9 MXXXXKXXK DS we 
ERRG@RTOG ¢ FALSE} 


FLAGONDS 
WRITALISTCFATALERRs0:020202020,02090) 3 
WHILE NEXT 4 141 DO * LOOK FOR END STMT 
BEGYN 
“WHILE NExT 4 SEMI po SCAN3. 
EOSTOG « TRUES 
_ SCANS 
ENO; 
SEGMENTCCADR+4) DIV 45 NSEG» FALSE» EDOC)3 
SCAN3 
END FATAL3 


Peete ae REAL STREAM PROCEDURE D2BCBCL)$ BEGIN ST*BCLS Dl+LOoC 28s DSesoct ENDS 
REAL PROCEDURE GET(1)$ VALUE If INTEGER I 3 


Peete lst Meee a ee memes, 2 
GET © INFOCCISI),IR+IIC) 3 
END GET? 


ge Ty 


obetsoeo + O08 


00617000 + 0202 


START OF SEGMENT i iasees oak 21 
START OF SEGMENT seetdentan 220 


00618000 T 0000 
00619000 T 0000 
19 CONGs NEXT SEG 21 
00620000 fT 0000 
00621000 fT 0000 


<“QqEs2000 F O0Nt SS 


00623000 7 0005 
00624000 T 0006 


~ 906B5000-¥ “O00 Se ane, gates! 


00628000 fr O0f0 — 


21 18 


00626000 T Q009 
00627000 rt O010 


00629000 7 O01, 
00630000 tT O014 
60631000 fT O06 | 

15 LONGs, NEXT SEG 6 


PROCEDURE PUTCYsVLU)4 VALUE TevLUus INTEGER Is REAL VLU 3 
BEGYN fe Bc et an as fen tage Vi tees ep bee . 
—OINFOCCT@L)oIReteIC}] © VlU b — —_ 
END PUTS 


VALUE 13 INTEGER IJ) REAL INFAsINFBeINFC 3 
BEGIN — sth Sneh te Minhas EPG atlatly scsi derek Eh Pn, 

INFA © INFOECT#I)«IReleitC) 3 

INFB «© INFOCCIOI4+1).IRo1.ICI3 

INFC ¢ INFOCC TEI 41). IRs TeICI3 


ENDS 


PROCEDURE PUTCCIsV)5 VALUE TeVS INTEGER IS REAL V BO 


. w- “> ‘ Sy sae he oy 


taste th PROCEQURE GETALUT Is INF Ws INFBoUNFO YS 0 Tr rer rrr rr 


00632000 YT 0203 


00633000 T  0204- 


00634000 ry 0204 


ke 


00636000 Tt 0210 


00637000 y 0210 


—QOS3B000 T0219 me 


00639000 T O24 


“QOS4O000 Y O2Ta No ee 


00641000 T Q2t4 
00642000 T O214 


~Q06RI000 T ORLA 


00644000 r O28 
00645000 Tt 0222 


00646000 ¥ 0236 "UT 


OF) d A 


4 ' a) e 


: ts : 


IF Te l>SUPERMAXCOM THEN FATALC124) ELSE COMECIeIRel.IC}eV 3 


REAL PROCEDURE GETC(1)3 VALUE I3 INTEGER I 3 
GETCeCOME(CIe1).IRsT.IC) 3 


PROCEDURE BAPCeV)3 VALUE v3 REAL V 3 
IF NEXTCOMeNEXTCOM+1>SUPERMAXCOM THEN FATAL(124) — 
ELSE COMCNEXTCOM,IR»eNEXTCOM,ICIEV 3 


STREAM PROCEDURE MOVEWCFsTsDeM)s VALUE DoM3 


BEGIN SI ¢ F3 DI + TS DCDS +32 wDSs OS ¢ 32 WOS)s DS « M WOSS END3 


PROCEDURE CALLEQUIVCI,B,G)5 VALUE 1,B,63 INTEGER 13} REAL G3 BOOLEAN B 3 


BEGIN REAL AsTsRe INFASINFCS 


REAL LASTsO03 LABEL L3 
PROCEDUSE CHARECTINFOCR EADS: VALUE ReA3 INTEGER ReAs 
COMMENT THIS PROCEDURE CORRECTS THE INFO TABLE FOR COMMON AND 
_ _E@UIVALENCE ELEMENTS» 
“IF ITeMS ARE IN COMMON THE INFatEQ) BIT IS SET 
THIS BIT IS USED TO TELL OATA STATEMENTS THAT THIS IS A 


COMMON ELEMENT AND IF NOT IN BLOCK DATA SUBPROGRAM EMIT 


SYNTAX ERROR 168, 
THE INFACCE] BIT IS SET TO TELL THAT IF THE CLASS IS VARID 
EMIT CODE AS IF THIS ITEM WERE ARRAYID BUT 00 NOT) 
“ALLOW SUBSCRIPTING;? — 
BEGIN 
REAL Ts TeLASTsLs REL» TWODBITs INFAs INFBs INFCS 


REAL CEBIT3 
DEFINE La ® LOWERBOUNDSS_ Se er ee ee re 
TWODRIT ¢ REALCLENGTH > 1023)3— 
CEBIT «+ REALCLENGTH > 1)3 
TO RFs, 
po 
BEGIN 
LAST#GETCCT)oLASTC™? Bo 
FoR 1 « Te2 STEP 1 UNTIL LAST DO 
BEGIN 


TF GETCOT)+CLASS = ENDCOM THEN IeGETCCT)oLINK Fo 


INFA*GETCL©GETCCI)eLINK)3 INFC#GETCL42) 3 
IF INFC > 0 AND LB # O THEN 
BEGIN. 
IF BOOLEAN 
REL ¢ 


NCINFA ADJ) THEN | 
eINFC.BASE ELSE REL «© INFC.BASE3 


00646200 T 


00646300 7 


00646500 fT 
00646600 T 


00647000 T 


00648000 T 


00649000 T 


~ 00650000 7 
START OF SEGMENT wauttteeny 


00650100 T 


~ 00651000 Tt” 


00651010 T 
00651020 Tf 


0226 


pO GReG00 T0888). 


0250 


“02500 


0000 


“600 


0000 
0000 


~ 00651030 Tf 


00651040 Tf 
00651050 fT 


00651060 Tr 


00651070 T 
00651080 Tf 


00651090 TFT 


00652000 1 
00653000 Tf 


00654000 1 


00655000 7. 


00656000 fT 
00657000 T 
00658000 T 


06689000 T 


00660000 T 
00661000 7 


00662000 T 
00663000 7 


0000 
0000 


6006" 


0000 
0000 


“00006 


0000 
0000 


START OF SEGMENT weeetenawe 


0000 
0000 


S05 ee 


0004 
000a 


0004 
0004 


0006 
0010 


"00665000 fT 


00666000 T 
00667000 fT 


0019 
0020 


—QObbETO0 + ORaE 


23 


oon ee 


aa 


O065 


~ 00668000 fT 


00469000 T 


0021 
0022 


@9eeeeeeske8eFfeeeee80606m686UmhmUMOUmUmUCUOUCOUCOCDCO 


j 
: 


PUTCL+2.°CINFCRCREL=LB)CTOBASE}))3 00470000 Tt 0025 

END3 00671000 tf 0028 

PUTCLsINFA&S TWODBITCTOADJISCEBITCTOCEJ&ALTOEQI)3 00672000 T 0028 

EnD3 00673000 T 0032 

END UNTIL TeGETCCTY,ADDRaR 3 00674000 T 0033 

END CORRECTINFO3 00678000 fT 0035 

24 1S 40 LONGs NEXT SEG 23 

LABEL XITS 00676000 7 0000 

IF DEBUGTOG THEN FLAGROUTINEC™ CALLE"s"QUIV "sTRUE ) 3 00676010 rT 0000 

COMMENT THIS PROCEDURE MAKES THE DETERMINATION IF THIS GROUP 00676100 tT 0002 

1S FQUIVALENCE OR COMMON IF BOTH TREATED AS COMMON} 00676110 T 0002 

Te 73 Styne 48 00677000 T 0002 | 

GROUPPRT « LENGTH « A « 3 00478000 T 6002 

LOWERBOUND ¢ 320003 00679000 T 0004 

On BEGIN IF GETCCT).CE=1 THEN 00680000 t 0008 

BEGIN IF GROUPPRT # 0 THEN 00681000 Tt 00067 

BEGIN XTAtG 3 00682000 Tt 0009 

FLAGC2)3 00683000 r 0010 

ENDS 00684000 rT 0011 

GROUPPRT*GETCASGETCCT41)).A00R 3 00685000 T O0%;4 

END} . 00686000 T 0014 

Ie T> R THEN Re T3 7) 00687000 T O01a 

END UNTIL TeGETCCT) «ADORE! 3 00688000 T 0016 

te GROUPPRT = O THEN 00689000 Tt O019 

“IF B HEN BEGIN BUMPPRTJGROUPPRT+PRTS END ELSE OWN” ““OOssrvl00 7 DOlg i. 

BEGIN BUMPLOCALS3 GROUPPRT+LOCALS + 1536 END3 00690000 rT 0025 

T ¢ R3 00694000 7 0034 

Fes tenuate ia gud SWARCCT an Gp TITTIES ETS et ate eins at ateninenecnn ~“O0B9TS00 FOOT 

SSNMr6JeLOCALS 3 SSNMEC7J¢PARMS 3 SSNMCBJePRTS } 00691510 T 0035 

= SSNMP9JeL STS | b  SSNMC10JeLSTA ~ ==) «SSNMCL4)4TV 3 00691520 T 0039 
SSNME{2I@SAVESUASS SSNMCVITONAMEIND §$ SSNMELO36LSTY =F 7 “Q069TS3I0 F ORF es 

SSNMC(S3eFX1L 3 = SSNME16)¢FX2 3 SSNMEL73eFX3 3 00691540 T 0046 
Ageaeeh SSNMCYBIENX1I ee beecttacaay ized fesioatae ete te ety 00694550 FT 90050 2 

SEENADOUBCFALSES% 00691800 7 0051 

DO Ie GETC(T4+1) # 0 THEN BEGIN EQUIVCT)3 T&R} END 00691900 T 0053 

Spiers ie AR, ey FAS FLSE TeGETC(T),ADDR UNTIL TOS RRO 00691950 T0057 
IF GeTccT) >» O THEN EQUIVC(T)2. " "00692000 y 0063 00 00 UU ™ 

LOCALS*+SSNMf6153 PARMSeSSNME7)3 PRTS@SSNM(8)3 LSTS+SSNME9} 3 00692010 T 0065 

LSTAsSSNMC10)3 TVeSSNM(11]3 SAVESUBSe¢SSNM([1233 NAMEIND@SSNMC13) 3 === 00692020 T 0069 


LSTIe¢SSNMC1493} = FXL*SSNMC15)3 FKX2eSSNMC16)3 FRBeSSNMEL7) 3° 


00692030 T 


NX1L@SSNME18) 3 00692040 T 0077 
es LENGTH * LENGTH = LOWERBOUNDS 00693000 T 0078 

IF ‘SHENADGUB THEN LENGTH@LENGTHS+LENGTH.L478153% EVEN UP LENGTH ““OG693800 fF OOTQ 0 
eh te at 00693600 7 0082 
IF A @ 0 THE 00694000 T 0084 

oad Bee i Sean Seal Coen, a onl oe Sa sf tee a E Gta ry € 6 WHER Ni + + HIS-YS AN” EQULVALENCE: GROUP I ere DOETELOO TF DOSS Laces gaa lignan giana alge ald gh eae Sag 
IF SwARYCT > 1 AND LENGTH = {1 THEN LENGTH © 23 00694150 7r 0085 
If LENGTH > + THEN 00694200 fT 0088 

Si Be F é i oc e bh Sheen sen dese sae ese ithe a a Riaaie ok Maes pee A AEST) 2 a "QOS TaIOO a “ng Oe 
A « ENTER( #0 & ARRAYIDETOCLASS} & GROUPPRTCTOADOR)» 00695000 Y 0090 
EQVIO © EQvIOel )3 00696000 7 0092 

femibaty pead intel enite SSewgebete tne 45 : S dire PUT (hada O08 “LENGTHUTOSTZEY) Dea ene ge a —“QOSISI00 Y “0004 Se Tsar es iat eats ok) ae ha ices et 
ENDS 00696200 fT 0096 

. » . a » > e * . 4 . 


e @ 


| 
I 
t 
i 


| 
| 


CTINFOCR?9)3 
XIT3 


ENDS 

COMMENT THIS IS A COMMON BLOCKS 

IF T © CINFC © GETCA*2)),SIZE #4 O THEN 

IF T $ 1023 AND LENGTH > 1023 THEN 
BEGIN XTA © GETCA*1)3 FLAGC47) ENDS 


IF T < LENGTH THEN PUTCA42» INFC&LENGTHETOSIZE]) ELSE LENGTH * T3 


IF LENGTH = 1 THEN LENGTH © 23 
CORRFCTINFOCRs 193 
xITt | 
IF LENGTH > 32767 THEN BEGIN XTA © GETCA+1)3 FLAGC100) ENDS 
IF DEBUGTOG THEN FLAGROUTINEC™ CALLE"s"QUIV "sFALSE) 3 
END CALLEQUIVS 


STREAM PROCEDURE STOSEQC(XR»sSEQs1D)3 VALUE ID3 
BEGIN LMCAL T3 LABEL List2 3 
St ¢ LOC 103 DlexXR3 DSe7LIT"O"3S DS*CHRS SIeSt413 
Ie SC 2 "0" THEN 
BEGIN SIeSI+43 DIle#DI=23 
5¢rF SCs" " THEN SI ¢ SI=1 
ELSE BEGIN DSeCHR$ SIeSI#23 DleDI=23 END)} 
END ELSE 
BEGIN eae “65 
SCs" " THEN BEGIN TALLY©TALLY4#13 SI¢SI41% ENO 
ee: DS*CHR)3 
TeTALLYS 
EnD3 
Dr#XR3 DIeDI+83 SI*SEQ3 


BcIF SC=m " THEN SIeSI#i1 ELSE JUMP OUT TO L1)3 ODS*8LIT"BLANKSEQ"; 


GQ L23 Lit SreSEQ3 DOSeWDS3s Los 
DreOl+43 SIelLOe Ts SleSr+73 OS*eCHR; 
END3 


PROCEDURE ENTERXCIDENT*ADINF QO) VALUE IDENT» ADINFOS 


REAL IDENT» ADINFOS 
BEGIN RFAL ReS 3 


IF ADINFOsCLASS>LABELIO THEN 
BEGIN 
XREZJ*ADINFOS STOSEQCXReLINKLIST» IDENT) 3 


IF ADINFOsCLASS®FUNID THEN XRC2).C26%81)¢Se1 Bo 


WRITECXREF Gs 3eXR("))3 XGLOBALS*TRUE 3 

END 3 
IF RexXRI MOD XRBUFFOIY3=£0 THEN a 

IF XRIFO THEN WRITECXREFF sXRBUFFeXRRYC#I) 3 
XRRYCCRERM*RORIFQIGAD ING ORS( 26847894) 3 
STOSEQCXRRYCRI*LINKLISTs»IDENT) $ 


Ip XRI©XRI4+1=1 THEN BEGIN XROSI*IDENTS XREAI¢XRRYC2) END Fo 


END ENTFRX3 


23 15 


no eee 
‘(00s ee ee 
SGgig ok OP Pee 


One ee ee ee 


00697100 T oo3s 
00697200 T 
00697300 Tr 0098 
00697400 7 0098 
00700000 + 0098 
00701000 T 0104 
00702000 T 0103. 
00702100 r 0106 
00703000 ry O111 
00704000 ¥ 0113 
00705000 Tf O14 
00705100 r 0115 
00708110 tT O18 
00706000 y O120 — 
127 LONGs NEXT SEG 
00706010 T 0250 
00706015 T 0250 
00706020 T 0250 
00706025 T 0252 
00706030 T 0252 
00706035 T 0253 
00706040 FT 0254 
00706045 T 0256 
00706030 T 0256 
00706055 Tr 0256 
00706060 Tt Q0258 
00706065 1 0289 
00706070 Tr 0259 
00706075 TT 0259 
00706080 tT 0260 
00706085 ~ 0263 
00706090 TT 0264 
00706095 7 0266 _ 
00706420 T 0266 
00706150 T 0266 
00706200 rT 0266 
START OF SEGMENT eneetteeny 
(00706220 + 0000 
00706240 T 
00706260 +r 0004 
_ 00706280 rt 0005 
00706300 T 
00706320 T 0015 
00706340 T 0035 
00706350 Tr 
00706360 f 0023 
00706380 T 0027 
00706450 fT 
00706500 T 0034 


6 


25 


25 18 
STREAM PROCEDURE TRANSFER(W2*B9K)3 VALUE K 3 
BEGIN DIeW2s SteBs STeSI+8s KCDS*WDS3 ST+S1+#16) END 3 

BOOLEAN STREAM PROCEOURE CMPACF»S)3 
BEGIN Sy* F3 DY * S$ IF 8 SC $ DC THEN TALLY © 13 CMPA®TALLYS ENDS 
BOOLEAN PROCEDURE CMP(AsB)3 ARRAY AsBlOI3 
BEGIN | ee es 
CMP ¢ Ip ACO] < BLO) THEN TRUE ELSE IF ACO] = BLO1 THEN 

Tr AC2}.02684) < B£21,02684)] THEN TRUE ELSE 

IF AC21602684) = BC2),02684] THEN CMPACAL1),8(1)) ELSE FALSE 

ELSE FALSES — 
ENDS 
PROCEDURE HvCV)s ARRAY VOI; - 
FILL Via) WITH OCT777777777 777777 QCTI777TT7TTITTITT®OCTITTITTTTTTITTTTS 


START OF SEGMENT 


BOOLEAN PROCEDURE INPCXR)$ ARRAY XRCOI35 


26 IS 


BEGIN LABEL €0F3 REAL R 3 


(00706730 Y O29, © 


37 ONG» NEXT SEG 
00706525 T 0266 
(00706530 7 0266 
00706560 T 0269 
00706570 Y 0269 
00706600 T 0272 
00706610 7 0272 
00706640 tT 02728 
00706650 T 0276 
00706660 T 0280 
00706670 T 0286 
00706680 T 0287 
- 00706700 T 0289 
00706720 T 0289 

deteialehcieaaie 


3 LONG», NEXT SEG 


START OF SEGMENT 


IF EFOQDS THEN READCXREFGs3exXRC#I)CEOF] ELSE 
IF IT © IT#1 > XRI_ THEN 
BEGIN EOF: INP*TRUES IT*xRI©03 END 


ELSE BEGIN | . . ‘ AAS at - tt a ae ee 
IF reciT*1) MOO XRBUFFDIV3EO THEN READCXREFFsXRBUFF sXRRYC#)) 3 


XREKTeXRRYCRER+RtRI$ KXRCAI|XRRYCR+213 TRANSFERCXROEL]»XRRYCRIo1) 3 
END 3 


END OF NP 3 
27 18 
PROCEDURE VARTABLEDIMSCAsC)3 VALUE Ar C3 REAL Ap CF” 
BEGIN 
REAL NSUBS» BOLINKs BOUND» Tso 


LABEL XIT3 


00706735 


00706750 


00706760 
00706770 


00706780 


00706800 
00706810 


~~ 00706620 © 


“OOFOO733°T 0292" 


weak kkekin 


ae aaa eas 


0000 
0006 
0008 
0014 


or ibe eee ae 


0018 
0025 
a 


30 LONG» NEXT SEG 


“00707000 


00708000 
00709000 


START OF SEGMENT » 


00710000 


TT 
T 
T 
* 
T 


“Cag ge 


0292 
0292 


0000 


26 


27 


eetttekew | 628” 


ry 


i 


| 
| 
| 


1 


| 
| 
| 
| 


—> 
1 


IF OEBUGTOG THEN EU AGROUTINE CAVARIABT? T EDIMS"eTRUE ) 3. ae ee », MOTLONLO T 0000 
IF NSUBS © G.NEXTRA 1 AND AeSUBCLASS < DOUBTYPE THEN GO TO xIT3 00711000 ~ 0002 
BOLINK ¢ Ce a INeG? 00712000 r 0006 
FOR y « 1 STEP 2 UNTIL NSUBS DO ; Cc ee ee 90713000 T 0007 
BEGIN 00714000 Tt 06040 

TF BOUND ©¢« EXTRAINFOCBOLINK.IRsBOLINKeIC] < O THEN 00718000 Tt OO010 
EMITOPOCLITCBOUND) ELSE EMITNUMCBOUND)$ 00716000 tr 0013 
BOLINK «© BOLINK@#1} ~~ Ow F071 7000 FF OOTS 
Ie I > 1 THEN EMITOCMUL)3 00718000 tT 0017 
ENDS 00719000 7 0019 
TF ACSUBCLASS 2 DOUBTYPE THEN EMYYPAIR(@Ss MUL)$ UT REGO F 
EMITPAIR( C,SIZEs STD)3 00721000 7 0024 
XITt eel cil a aN tee a lag A Bas Satpssetrhn Geeta | on it ates mien een cep OO CEOUe tile. UGE 
IF DEBUGTOG THEN FLAGROUTINEC"VARIABY,"LEDIMS",FALSE) 3 . "00722010 T 
END VARTABLEDIMS3 00723000 T 0028 


PROCEDURE EMITDCRsOP)3 VALUE RsOP3 REAL RsOP3 FORWARDS 00723100 Tf 0292 

STREAM PROCEDURE SETPNTCWL+W2ePNTsCL»SUBCsSTAR*POSsFsSeQ) 3 | 00723140 7 0292 

VALUE CL»SUBCeSTARSPOSsFeSsQ 3 00723150 T 0292 

BEGIN FeStewl;s SI*SI]423 OLe© PNT 3 00723160 + 0292 
IF Sc2"0" THEN eee cin ies te ate eee _. 00723170 T 0293 - 

BEGIN NS*S5CHR3 OSeLIT" "3 DIleDIl=63 DS*S5FILL 3 00723180 y 0294 

END ELSE BEGIN DS¢6LIT" "3 DI*PNTS DS#Q CHR END) 3 00723200 T 0296 

SCDI#PNT$ DIeDI4+63 DSeLIT” "3 oe 00723210 T 0298 

St ¢ LOC SUBCS ST + S¥4+23 DS + 6 CHR; BS © CIT * wy” ae ae 06723230 7 © 

STe¢LOC CL3 SIleSI#23 DS*6CHR3 DSeLIT” %)3 00723240 T 0303 

NIePNTS DIeOI+2k3 00723250 7r 0303 
poscaTentsiiT ee <ORbAGE sh Sine eB APSA A Swi SSE RE ae a gs at eh) 

St ¢ LOC STARS SI © S1+73 DS © CHR; 00723265 ft 0305 
Sy ¢ W235 DS*8CHR § state i ee 00723280 T 0305 

Sr « Loc STARS ST «+ S1473 DS «© CHR} = 00723295 7 0306 

END OF SETPNT 3 00723325 tT 0307 


PROCEDURE PTCEOF»sREC)SVALUE EQF% BOOLEAN EOFS ARRAY RECLO)S = = 00723450 7 


BEGIN LABEL L63 REAL L 3 00723470 ¥ 0307 
gneiss te i START OF SEGMENT eatin 

IF ENF THEN WRITECLINEs15sPRINTBUFFE#)) 00723820 Tt 0000 
ELSE 00723595 T 0003 
IF ROOLEANCL*REALCRECCOJ*RECCOIAREC(2] Cit26t1imxTA)? THEN = = = 00723610 7 0005— 
BEGIN 00723620 y 0009 
IF ITelTe1s9 THEN 00723630 7 09009 
BEGIN LASTLINE*FALSES WRITECLINEsISsPRINTBUFFC*]) $3 = | 00723640 T 00114 
L63 BLANKITCPRINTBUFFs15s1T¢0) 3 00723650 T 0018 
END 3 00723660 T 0020 
SETPNTCRECCOISRECE1 J »PRINTBUFF sKLASSCRECEC21,¢CLASSI]*TYPESCREC(2] = 00723670 YT 0020 
eSUBCLASSIs IF BOOLEANCREC (21) THEN “#" ELSE * ",1TslLois 06723660 + 0023 
LASTLINEs6"REC(2),£27133) 3 00723690 ~ 0027 
END 00723700 7 0029 

ELSE BEGIN: (000 TTI ne ee a aeeantnes  a gBEET 
LASTLINE*TRUES WRITECRITEs15>PRINTBUFFEC*)93 XTA*RECLO) 3 00723720 Tt 0030 


26.18 33 LONGs | 


0307 


Ss0g eee 


ee 


OM tee 


: : : 


60 46 3 
END 3 
END OF PT 3 


PROCEDURE CHECKINFOS 
BEGUN REAL: Te Ta Me cuiniixterdowanlacnant 


START OF SEGMENT waetteatan 


REAL LASTF3 

REAL INFB*INFCS 

LABEL NXTS ALPHA NS | 
FORMAT INFOFC 3CA6s X2)2 


w ADDRESS = %» Aas. Ads 

*, LENGTH * “» [Ss 

", OFFSET = "2 52,5 
INFOTC / "LOCAL IDENTIFIERS$")» 
LABFCA6sX10e"LABEL REL*"ADR = “",I6s"%». SEGMNT = %,75)3 


IF PRTOG THEN ~ 

WRITALISTCINFOT#09020202090202020) 3 

IF I_¢ SEARCHC(NERR  ") # 0 THEN - Sh Geeta 
IF GETCI). CLASS = “UNKNOWN THEN “PUTCIols Weegee lr 

IF I © SFARCHC"END ") #4 0 THEN 
Ir GETCI) CLASS = UNKNOWN THEN PUTCI41> “"seacee™d3 

IF NOT OCINPUT THEN IF YeSEARCHC*ZIP =) 4 0 THEN 7” 
Ip GETCIT9eCLASSSUNKNOWN THEN PUTCI4L ae ecene”) 3 

FOR t ¢ 0| ene 1 eee NEXTCOM 00 


IF GeTCCI)sce=t THEN SE ae Ieee eee a ere | | 
PUTCEOTOGETCOT#L) sCINK+2),GETCTIROLTOADINFOTY 3 0 


T + 23 WHILE T < NEXTINFO 0O- 

BEGIN — 
GETALL OC TsAs INFBs INFC)5 
If I ¢ A.sCLASS > FILEID THEN GO TO NXT3 


een Waker eee TT a) ee ek ag eee 
XTA « N3 

Ip T= CABELTO THEN - 

BrGIN 


IF A > 0 THEN FLAG(19) ELSE 


IF PRTOG THEN WRITALIST(LABFs3sNeAeADDR DIV 4eAgSEGNO%02020009 


0) 3 
GQ TO NXxT3 
ENDS ~ ahr a tite 
le I & FORMATIO TREN 
IF A > 0 THEN BEGIN FLAG(C62)3 GO TO NXT ENDS 
Ie I = NAMELIST THEN 


IF A > 0 THEN BEGIN FLAGCI36)3 GO TO NXT ENDS” ee Nae 


Ip I = ARRAYID THEN 
IF BOOLEANCA,CE) THEN BEGIN IF A>0O THEN T*GETSPACE(T) ENO _ 


“ELSE IF A<O THEN 
IF BOOLEANCA.FORMAL) THEN 


29 1S 


31 1S- 


00723730 
00733740 
00723800 


00724000 
00725000 


00725100 
00726000 


~00727000 T DO0G 


00728000 


T 9036 | 
+ 0037 
y 0037 


40 LONGs NEXT SEG 


7 0307 
Y 0307 


T 0000 
T 0000 


tT 0000 


_START OF SEGMENT #taeetenene — S 


“00729000 
00730000 
00731000. 
00732000 
00733000 


00734000 
00735000 
00736000 


00737000 Tr 


00738000 
00739000 


~~ OO739TOO © 


06739200 
00740000 


00741000” 


00742000 
00743000 
~DO7TEGO00 
00745000 
00746000 


“O0747000 Y O0ag7 


00748000 
00749000 


00751000 
00752000 
“00753000 
00754000 
00755000 


00756000 
00757000 
00758000 
00759000 
00760000 


00762000 
00763000 


00750000 © 


7 6000 
7 90000 
T 0000 
Tt 0000 
T 0000 


37 LONG» NEXT SEG 


y 0000 
y¥ 0000 
yr 0004 


T QO010 
Y 0012 


T 0020 
T 0024 
y 0025" — 
T 0030 
tT 0030 


007s 


T 0040 
rT 0040 


T 0043 
TT 0044 


ait | 1 | EERE 


T 0048 
7 OGa9 


$0050 


yr 0050 
yT 0050 


“9 PESOLO FP -008O Te 


T 0061 
T 00614 


Se 00a ee ae 


T 0062 
rT 0065 


“OO7T6LT000 F 0066” 


T 0069 
tT 0079 


~~ 00764000 © 


00764020 


y 0078 


BO nas 


0006 


tO W0lg ee 


T 0074 


By ee set 


H ‘ : i 


! 
| 
| 
| 


y 
! 
| 
| 
| 


| 


BEGIN IF SPLINK > 1 ANC ELX > 4 THEN 
BEGIN % THIS IS A FORMAL PARAMETER FOR A SUBROUTINE OR A- 
% FUNCTION THAT HAS ONE OR MORE ENTRY STATEMENT, THIS 
% PARAMETER WILL BE INITIALIZED TO AN ARRAY DESCRIPTOR 
% To 0 SO THAT IF THE PARAMETERS ARE NOT SET UP BY THE 
% CALL ANY REFERENCE TO THEM WILL CAUSE AN INVALIO 
% ADDRESS D te 
IF LASTF = O THEN %& FIRST TIME THRU 
BEGIN LASTF ¢ A,ADOR3 
EMITDESCLIT(2)3 EMITL(1)3 
EMITOCSOsDIA)3 EMITOC10e0I8)3 EMITDC10eTRB)S 
END ELSE EMITPAIRCLASTFsLOD)3 
EMITPAIRCAsADORs SND) 3 
END 
END 


ELSE aRRAYDECCT)3 
te PRTOG THEN 
WRYTALISTCINFOFs 72 INF Bs 


IF BOOLEANCA.TYPEFIXED) THEN TYPESEAsSUBCLASS] ELSE " ", __ 


KLASSCA.CLASS]» 
IF AsADDR < 1024 AND A < O THEN "RO" ELSE * %y 
IF A < 0 THEN B20€A.026810)) ELSE “NULL", 
INFCeSIZEs 
INFCeBASEs 0) 3 

IF BOOLEANCAsCE) THEN IF AeSUBCLASS 2 DOUBTYPE TREN © 
If BOOLEANCINEC. BASE) THEN FLAG(146)3 


NyTs 
Fy Ee, ULL, A Se na, en ee 4 
ENDS 
ENO CHECKINFO3 
PROCEDURE SEGMENTSTARTS 
BEGIN 7 2 


NSEG © NXAVIL © NXAVIL + 13 — 


00764040 


900764110. 


~ 066764300 - 


00769000 


~ 00773200 — 


3018 


00764060 
00764070 


00764080 


00764090 
00764100 


00764150 
00764200 
_ 00764220 
00764240 
00764260 
00764280 


00764320 
00765000. 
00766000 
00767000 
00768000 


00770000 
00771000 


00772000 


00773000 
00773100 


00774000 
00775000 
00776000 | 
00777000 


00778000 
00779000 


~ 00780000 


4 a a 
T .OO7s | 
y 0079 
T OO79 
T0079 
tT OO79 
tT OO79 
T 0079 _ 
T 0079 
T 0060 
T0082 tests 
“Fy 0083 
tr 0086 
rT 0088 
+ U08S 
T 0089 
T (00869 ce lee 
7 0090 
T 0094 
T 0093 
T 0096 
Tt 0097 
T 0101 
r 0104 
T 0105 
T 08106 
tT 01069 
T O111% 
YO ST aes oa ee 
T O113 
tT O19 


123 LONGs NEXT SEG 6 


T 0307 
T 0307 


Shak 1 


IF LYSTOG THEN WRITALISTCSEGSTRT os Le NSEG202 02000900000) 3 00781000 T 0309 
DEBUGADReADRe=1 3 spe act ne wy okt ey aie eo hates Mada him fate ca, ape ea coven 90782000 T O38 2 
IF NoT SE®OVFLAG THEN 00763000 T 0316 
BEGIN 00784000 tT 0317 
DATAPRT¢DATASTRT*DATALINK@OATASKPe 0 00784100 T O8NP 
LABELMOM ¢ BRANCHX ¢ FUNVAR ¢ 00785000 Tt 0317 ; 
OT « SPLINK ¢ NEXTCOM ¢ ELX © 03 00786000 Y 0317 
NEXTSS © 10223 — anes petets, gas aan with Uneaten memes 4a ldane ts 90787000 Ff 0323) = 
INITIALSEGNO ¢ NSEGS | 00788000 Y O324 
FaR I ¢ 6 STEP 1 UNTIL LBRANCH DO BRANCHESEI) ¢ Ie43 00789000 Tt 0324 
FOR 1 ¢ 9 STEP 1 UNTIL SKX DO STACKHEADEI] *¢ 0s = 00790000 FT 0930 Benita 2 
NEXTINFO ¢ LOCALS ¢ 23 00791000 T 0334 
FoTOG * FALSES RETURNFOUND © FALSE3 00792000 tT 0335 
ENDS. ee OC Mn ee ee ee Oe aN eT RT care US NE meer reer °° 12/0 1 + a ee °c ae 
ENDSFGTOG © FALSES “00794000 7+ 6339 
IF SeGSW THEN LINESEGENOLINGO20)]¢0 & D2BCLASTSEQ)(10%20828) 3 00794400 y O344 
ZENO) SEGMENTS CAR I fice cage net el Sk tears chee mbes a ue a legs os ie pe _.00795000 t O347 


! 
| 
| 


i 
! 
ij 
1 
| 
| 
| 
| 
| 


seerae FIXPARAMSCI)3 VALUE I3 INTEGER 2J3 
IN 
REAL FMINUSs NPARMS»s ELINKs LABX3 


REAL PLINKX» PLINK3 
REAL PTYPEX, PTYPE3 
REAL Cle INFS es 
LABEL ARRY» LOADs INDX3 
REAL EWORD3 
IF DEBUGTOG THEN FLAGROUTINEC™ 
EWORH « ENTRYLINKEII3 
ELINK # EWORDeLINKS 
IF LABX * EWORDsCLASS > 0 THEN 
BEGIN 
EM1ITO¢MKS)3 
EMITDESCLITCLABELMOM)3 
EMITLELABX)3 
EMYTL¢1)3 EMTTLOCL)3 EMITLOO)3 
EMITOPDCLITCBLKCNTRLINT)3 
EMITL(1)3 EMITPAIRCFPLUS22STD)3% 
ENDS 
FMINUS ¢ 19203 
NPARMS © (JeGETCELINK+2)) eNEXTRAZ 
IF NPARMS > O THEN 
BEGIN 
Pr INKX «© EWORDsADDR#NPARMS #13 
PryPey «© JsADINFO + NPARMS#413 
FAR J « 1 STEP 1 UNTIL NPARMS DO 
BEGIN j 
PLINK « EXTRAINFOCPLINKXeIRsPLINKXeICJ3 
_PTYPE « EXTRAINFOCPTYPEX «IRs PTYPEXeIC)eCLASS3 
FMINUS ¢ FMINUS+13 
IF PLINK = 0 THEN 
BEGIN 
EMITOPDCLITCFMINUS)3 
EMITLCLABX © LABX=1)3 
EMITDESCLITCLABELMOM)3 
EMrTOCSTO)3 
END ELSE 
BEGIN. 
IF CL ¢ CINF « 
XTA © GETCPLINK#41)3 


FIXP"s"AaRMS "sTRUE ) 3 


F+2eTRUE FOR BLKXIT CALL 


IF PTYPE 2 O THEN EXTRAINFOCPTYPEXeIRePTYPEXeICIeCLASS 


@ PTYPE « CLS 
CASE PTYPE OF 
BEGIN 3 


TE-OL” HARRAYID THEN FLAGUTO) ELSE ee 


ARRY? 
BEGIN 


MENUS © FMINUSS 13 0 te 


IF INF < 0 THEN 
BEGIN 


*sUTTPATATRWINUSS LOGIE oo ee ce 


EMITPAIRCTeINE ,ADDRe STDS 
7 “EMITOPDCLITCFMINUS#1)3_ 
EMITPAIR(T#15 STO)3 
ENDS 


GETCPLINK))¢CLASS = UNKNOWN THEN CL « VARID?— 


6 
@ 
00796000 tr 0347 
00797000 + 0347 
00798000 Tt 0347 @ 
START OF SEGMENT wkatawedee 32 
“00799000 tT 0000 
00800000 T 0000 @ 
00801000 Tt 0000 
00802000 + 0000 
00803000 7y 0000 & 
00803010 + 0000 
“00804000 tT 0005 : 
00805000 7 0003 @ 
00806000 fT 0004 
00807000 tT 0004 
00808000 Yr 0006 @ 
00809000 rt 0007 
00810000 7 0008 
00811000 tT 0008 @ 
00812000 T 0011 
00812400 T 0011 
00813000 p 0043 e@ 
00814000 Tf 0013 
00815000 T 0014 
00816000 P 0017 @ 
00a17000 T 0017 
60818000 7 0018 
00819000 T 0020 @ 
00820000 t 0022 
00821000 + O028 — 
00822000 T 0028 @ 
00823000 T 0030 
“00824000 T ODO3q 
00825000 T 0035 @ 
00826000 rT 0036 
“00837000 y O036 °  — 
00828000 fT 0037 r 
00829000 T 0039 
“00830000 T 0039 
00831000 T 0040 e 
cossewn wwe wwe 832000 T0040 x : 
00833000 t 0044 
00834000 rt 0045 & 
00835000 tT 0046 
"00836000 F 0056 7 ~ 
00837000 T 0052 & 
00838000 T 0053 
a 
00840000 fr 0055 r 
00841000 T 0056 
~O0saz000 fT  00se eae = 
00843000 T 0057 r 
00844000 Tt 0058 
a RSOOO FO UOS A 
00846000 tT 0059 @ 
00847000 rt 0061 
ROO EOE 
00849000 T 0064 @ 
. & a “os rd @ 


an 
9 


—. 


! 
i 


1 
t 


| 
| 
| 
| 


ENDS ee et 
IF cL # VARID THEN FLAGCBO) ELSE 
LOAD: 
BEGIN 
IF INF.SUBCLASS2DOUBTYPE AND CL&VARIO THEN FMINUS*FMINUS#13 | 
IF INF<O THEN 
BEGIN eee 4 
EMIYPAIRCFMINUSs LOO)3 
EMITPAIRCT¢INFE ,ADDRsSTD)3 


IF INF,SUBCLASS2DOUBTYPE ANO CL"VARID THEN ss 


BEGIN EMITOPOCLITCFMINUS@1)3 
EMITPAIR(T#ieSTD)3 

ENDS. 
END 3 
ENn3 


a ee esebiast tie con tai Bund ee ea 
IF 6L = FUNID THEN GO TO LOAD ELSE FLAGC81)3 


00856200 T O07 = | 


90850000 7 0064 
00881000 T 0064 

00852000 tT 0066 
00854000 TF 0068 

00854100 P 0068 

00854200 t O07 


_ 00854300 T 0072 


00855000 T 0073 
00856000 rt 0074 
00856100 P 0076 


00856300 fT 0086 

00856400 tT 008; 
00856500 yr dO084% oo 
00857000 fT 006, 


00858000 7 0082 2 


00889000 7 0082 


00889100 T 0084 


00859200 T 0084 | 


3 

IF CL = FUNID OR CL = SUBRID OR CL ® EXTID THEN GO TO LOAD 
ELSE FLAGCB3)§ 

IF CL = SUBRID THEN GO TO LOAD ELSE FLAGC82)3 te Srey 


33 
BEG! 
iF cL @ ARRAYID THEN 
BEGIN 
EXTRAINFOCPTYPEX. IRs PTYPEX. »1CI6CLASS © « CLs 
SOTO ARRYS” is SL eeieeea: AGEN ae oe ly ee 
END: 
INDX! 


IF CL # VARID THEN FLAG(80)3 
FMINUS © FMINUS413 
IF INF < 0 THEN 


00862000 + 0089 


00859300 T 0084 
00859400 T 0064 
00859500 T 0084 
00860000 rt 0084 
00861000 T 0084 
00861100 T 0087 


00863000 T 0092 
00864000 tT 0092 
00868000 T 0095 ~ 
00866000 T 0099 
00867000 7 0093 


- VOBSBOOO OOS “me 


00869000 T 0098 
00870000 T 0098 
00871000 + 0098 
00872000 T 0100 
00873000 7 0101 


BEGIN 00874000 tT O102 © 
EMITOPOCLITCFMINUS@1)3 00875000 T 0102 
EMITDESCLITCFMINUS)3 00876000 7 0103 | 
EMITPAIRCINF,ADDR»e STD)3 00877000 tT 0104 ” 

END3 00878000 + 0106 

ENDS 00879000 T 0106 
IF CL x VARIO THEN GO TO ‘LOAD ELSE FLAGCG0)3 | —_* : “00880000 ¢ O106 0-7 

GO TO INDXs 00892000 rT 0109 
END CASE STATEMENTS . 00893000 T 0109 TR Oe ere 
START OF SEGMENT seettentan 33 . 7 

33 1S 17 LONG», NEXT SEG 32 

A @_INF,SUBCLASS3 ages eas van ame ae ee ce ggg i 00894000 t. eS 

IF T ¢ EXTRAINFOCPTYPEX.IRs PYYPEX.ICJ.SUBCLASS # 0 OR “00895000 Oily 

T = INTYPE AND A ® REALTYPE THEN 00896000 : 0115 
_EXTRAINFOCPTYPEXeIRePTYPEXeIC)eSUBCLASS * A ELSE = —  =——s—s- @oB97000 T OMLP 
IF T # A THEN 00898000 fT 0124 7 

BEGIN XTA © GETCPLINK#1)3 FLAGC88) ENDS 00899000 rt 0123 

_ ENDS bitte oA Sta tnk Merah eetah cts Site Napen viens Sy ieland 00900000 T 0126 
PLINKX © PLINKX413— ee """30901000 T 0126 #2 ~~ 

PTYPEX © PTYPEX#13 00902000 T 0127 


Ss ®@ 


g latins ts SRA glon oe. EF aa 
' % 4 . F : 
t 3 : : 
‘ } i 


BN NKY ¢ PLINKX=NPARMS3 

FnaR J ¢ 4 STEP 1 UNTIL NPARMS DO 

BR GIN on. te wide ace suse eitehe eee : eee 
PLINK © EXTRAINFOCPLINKXeIR»PLINKXeIC]3 
IF PLINK # 0 THEN 
IF CAeGETCPLINK)).CLASS = ARRAYID THEN 
IF TeGETCPLINK+2) << 0 THEN VARTABLEDIMS(As T)S” 
PLINKx © PLINKX#413 

END} 

END} 


EMITRCGETCELINK*#2).BASE @ CGETCELINK) «SEGNODETOSEGNOI> PAUSED 


IF DEBUGTOG THEN FLAGROUTINE(" FIXP™s"ARMS "sFALSE) 3 
END FIXPARAMS3 © oe a 


PROCEDURE XREFCORESORT 3} 
BEGIN 
REAL FoGeHo lo dsKeLsTeTTslJeMa TN 3 


SAVE ARRAY ALO®&XRI*1]5 ITLeTUCOA) 3 
ARRAY W2sW3L08XRIW1) 3 
LABFL Lisl2sL3eL4elL Sol OslLidslLi2elLi3z,lLi4 3 


DEFINE CMPARGTCA) = AsNAMESTN THEN IF CIF Gew3CHeAel2t10]},02624) 
STT¢W3EF*T«£[2810]1,02684) THEN NOT CMPACW2EH], 


. tout ees ELSE GOTT) #- 


CMPARLSCA) = AsNAMESTN THEN IF CIF Gew3fHeTef28103),02614) 
ETTeWIEF eA, (2810)),02684) THEN NOT CMPACW2ECH], > 


“Wetry)~ ELSE G>TT)” cL 
NAME = (12236) # 3 
JeXPIe13 GexRI DIV KexXRBUFFOIV3} — HEXRBUFF $ 
FOR Lei STEP 1 UNTIL G DO 
BEGIN 


bits READCXREFF Ho XRRYE #2) 5 JRANSFERCH2ETe (Let xSOIsXRRV OK) Fo 


YdeTeKa13° “Thess 7 
FOR FeT STEP 4 UNTIL IY DO 


REGIN ACFI¢XRRYCTNG TNS IRF C2S38810)3 W3ICFI@XRRYLTNG2) ENDS 


END 3 


IF H®XRBUFF THEN IF KeXRI MOO K DIV 140 THEN BEGIN He3xK3GO Lid ENDS 


GO 1.4 3 


Lit IF alkelJeNAME>TNeCTeAC Tye (Led y+Te1) .C3I7#LOFS) NAME THEN UU 


Li2s BEGIN ACLIJJ*ACII$ ACTI©TZ TNeCTeALIVI) «NAME END 
ELSe IF CMPARGTCACI]) THEN GO L12 3 
IF ACJJ.NAME<TN THEN 
BEGIN 
Lids ACIJJe@ACJIS ACNI¢eT 3 
IF TNeCT#ACIS]) «NAME<ALIJ.NAME THEN 


Li3s BEGIN ACIJJ©ACIIS ALTJETS TNeCTeALIUI) «NAME END 


ELSE IF CMPARGTCACI]) THEN GO (13 3 
END 
ELSE IF CMPARLSCACJI) THEN GO L14 3 


L2t IF aACLeL1} NAMEPTN THEN GO L2J IF CMPARGTCACL}) THEN GO L2 3 
L3t IF alk#K+1).NAMESTN THEN GO L33 IF CMPARLSCTACK]) THEN GO°L3 So 7 TO 
IF kK LEQ L THEN BEGIN DOUBLECALKIsATL I s*oACLIZACKI)$ GO L2 END 3 


90903000 
00904000 © 
00905000 
00906000 


~ 00907000 


00908000 
00909000 


00911000 
00912000 


“OO9TIOON FT 


00914000 
00914010 


“O09TSO00™ 


160 LONG 


00913100 T ~ 


00915120 T 
00915140 7 


00915160 T 
00915180 fT 


009145200 7 


00915220 7 
00915240 Tf 


~QO9Ts 280% 


00915280 fT 
00943300 fT 


— 00915320 TT 


00915340 T 
00915360 T 


00915380 7 


06915400 T 
00915420 T 


~“OU09TSaa0 F © 


00915460 T 
00915480 T 
00915500 fT 
06915520 T 


00915540 7 


U09TSS60 TF 


00915580 T 
00915600 T 
00915620 Tf 
00915640 7 
00915660 T 


~ 00915680 T 


00915700 T 
00915720 T 


“00978740 F 


00915760 1 
00915780 1 


009158620 T 


T 
T 
T 
T 
T 
T 
T 

00910000 fT 
T 
T 
Tt 
T 
T 
tT 
» 


4 


0132 
0133 


yey ae 


0135 
0136 


OT30° Te 


0143 
0144 


0147 
01514 
0153 — ote 
NEXT SEG 6 


0347 
0347 
0347 


START OF SEGMENT #antttewew = 94 


0000 
0005 


O00 


0008 
0008 


0008 

0008 
ouoe-- 
0008 

0008 

CLT ae 
0014 

0014 

“002, 

0024 

0025 

0030 

0035 

0040 
“O0np 
0048 

0053 

0066 

0068 

0068 

Thy aa 
0075 

0080 

Cr een 
0093 


0138 


Olay te ee 


Q00R 


0106 
“QOSTSBOO 1 --O1ee- 


i 
i 
| 


i 


i 


L438 


L5: 


Lé63 


IF L+#K>J+] THEN BEGIN ILEMJ¢I3 yeas? Te¢K END 
ELSE BEGIN ILCMJ¢K3 IULMJeJs Jel END 


MeMald 3 


IF y+1O<eJ THEN GO L1 3 
IF 120 THEN IF I<J THEN GO L1 3 
FOR Iel+i STEP 1 UNTIL Vy 00 


IF ACKel@t]eNAME>TNG©CT©ACII) @NAME THEN 


BEGIN 


ACK+1)¢ACKI3 


IF CMPARGTCACK]) THEN GO LS. 3 


END 


ACKeil¢T 3 


ELSE IF Ee eee gene THEN GO £5 3 
THEN BEGIN TerLUMys Je TUCMI3 GO L4 END? 


IF (MeMel j 
GeXriIwi 3 


GEa 0 


FOR I¢O STEP 1 UNTIL G 0O eA ae. 
IF BOOLEANCL@REALCALCTIGALT J ¢NAMERCTNGWSC JeACII,COPLOIIICLIS2681)— 


ELSE. 


WRITECLINEs 15sPRINTBUFFCED 3 
END OF ¥YREFCORESORT 3 


REGIN 


™XTA)) THEN 


IF IT¢IT+1=9 THEN 


BEGIN LASTLINE*FALSE3 


BLANKITCPRINTBUFFs15,IT#O) 3 


END 3 


IF ACK¢K*1),NAME>TN THEN GO LS 3 


WRITECLINEs LS5sPRINTBUFFE*)) 3 


SETPNTCALIIsW2C J] sPRINTBUFF *KLASSCTN CLASSI] »TYPESCTNe 
SUBCLASSI]+IF BOOLEANCTN) THEN "#" ELSE * “sITob 1s 
LASTLINE,6"TN.C2723)) 3 


END 
BEGIN 


LASTLINE+TRUES 


GO L6 3 
END 3 


PROCEQURE SETUPSTACK $ 
BEGIN 


REAL 13 


EMITOPDCLITC16)3 — 
EMITL C1)3 


EMITOCADD)3 
EMITL(16)3 
EMITACSND)3 | 
FOR 
CHECKINFO$ 
IF DATAPRT 


4.0 THEN” 


XRI©O 3. 


ry ¢ 1 STEP 1 UNTIL LOCALS DO EMITL(O)3 


WRITECRITEs i sSePRINTBUFFO*I 3 


BEGIN ADJUST$ EMITOPDCLITCDATAPRT)S EMITOCLNG)3 EMITBC@1,TRUEDS 
_DATASKP*LAXS EMITBCDATASTRTsFALSE)3 FIXBCDATALINK)S  —_ 


“"EMITLOZ)3 EMITPAIRCDATAPRTsSTD)S FIXBCOATASKP )3 


END3 
ACJUSTS 


END SETUPSTACK$ © 


ee 


00917000 T 0347 
~ 00948000 + O347 
START OF SEGMENT weedttnene 
00919000 r 0000 
~~ 00920000 TF 
00921000 T O00, 
00922000 Tr 0002 
00923000 + 0003_ 
00924000 Yr 0003 
_ 00925000 TF 0008 
00925010 T 
00928020 7 0009 
_ 90925030 7 _ 
00925040 fT 0015 
00925050 Tt 0018 
00925060 T 0018 
600926000 fT dO018 


MAOATTY Oe 


00915840 FT 0142 | 
00915860 T O148 
00915880 ry 0152 

_ 00915900 F 0153 
06915920 fT 0158 
00915940 T 0158 

00915960 TF 0162 
00915960 T 
00916000 rT 0167 

00916020 T 0173 
60916040 7 
00916060 tT 0187 
00916080 Tf 4187 

“OOULS100 TT 
00916120 T 0208 

00916140 TF 
00916160 7 0207 
00914180 Tt O210 

00916200 T 0213 | 
00916220 r 02143 
00916240 Y 0215 
00916260 7 0224. 
00916280 T 0224 
00916300 rt 0224 

00916320 7 0226 
009146340 T 
00916360 tT 0232 
00916380 T 0232 
00916400 r 6233 
00916420 T 0240 
00916440 T O240 

90916466 TF 
00916480 T 0248 


00916900 T 


rT aaa 


OI GE Teas 


02000 


OG ec aeailes waaigedaase 


0347 


eae 


256 LONGs NEXT SEG 


35 
bbe 8 eee 


Uggggoc 


711 ee a ea 


PON AE ree Soca ene 


: i : f 


35 1S 21 LONGs NEXT SEG 6 


PROCEDURE BRANCHLIT(XeY)3 VALUE XeY¥3 REAL x3 BOOLEAN Y3 
BEGIN 
IF aDR 2 4075 THEN 
BFGIN ADR « ADR#13 
ADJUSTS 
IF X.SEGNOZNSEG THEN BEGIN 
Ir CPRTS41),03782)81 AND Y THEN. 
EMITOPDCLITCPRGDESCBLDOR( 2205 (ADR45) DIV 44fsNSEG)) 
E, SE EMITOPDCLITCPRGDESCBLOR(220sCADR+5) DIV 4»NSEG)) END 
ELSE 
EMITLCCADR+5) DIV 4 = XeLINK DIV 4) 3 
END BRANCHLIT3 


SEGOVF END} 


PROCEDURE SEGMENTCSZ*CURSEGsSEGTYPsEDOC)s % WRITES OUT EDOC AS SEGMENT 
VALUE SZ»sCURSEGsSEGTYP3 % UPDATES POPRT WITH PSUEODO 
REAL SZ»CURSEG3 % UPDATES POPRT WITH PSUEDO 
BOOLEAN SEGTYP3 % TRUE TO WRAP UP A SUBROUTINE BLOCK 

% FALSE TO WRAP UP A SPLIT BLOCK 
aa Eoocros0)3 % CONTAINS DATA TO WRITES 
BEGYN 
STREAM PROCEDURE Mi(FsT)5 BEGIN OI ¢ TS ‘Ste Fs DS ¢ 2 WOS ENDS 


REAL T3 


Di thesis mace whe REAC SEGINSUBs ENDSUBs “HERES "ee 
LABEL WRITEPGM3 
dese an _ ANTEGER Is CNTR 
IF DEBUGTOG THEN FLAGROUTINEC® SEGM"S*ENT "STRUE ) F 7 ~ 


IF NOT SEGTYP THEN GO TO WRITEPGM3 
IF SPLINK > 1 AND NOT RETURNFOUND THEN 
BEGIN XTA © BLANKS FLAG(142) ENDS 
IF SPLINK < 0 THEN 

BEGYN oe 
ADJUSTS 


BOPRTCBDX*BOX41] © PRGDESCBLOR(1» O» CADR+1) DIV 4s NSEG)3 


FOR I ¢ 1 STEP 1 UNTIL LOCALS DO EMITL(O)3 
ss CHECKINFOF? : 
' ; «EMT TBCORINITIALSEGNOCTOSEGNO)» FALSE)3 
ae A eae ee ore gs uli cade RR HN ll eee a aR taco As ahaa, 
ELSE 
es = IF SPLINK # { THEN % MAIN PROGRAM 
aceon Te cidal iel ei e  e e 
ADJUST 


IF STRTSEG # O THEN FLAGC75)3. 
STRTSEG «+ NSEG & 
PRGDESCBLOR( 15 O» 


CADR4+1) OLIV 45 NSEG)L18833815)3 


iy » 


— 00930000 


00932300 


200936000 


~~ 00946000 
00948010 
~— 00949300 
— 00952000 
~—00955000 
00957000 | 


.00959000 
“QO09I60000 


00927000 


00928000 
00929000 


00931000 
00932000 


00932700 
00933000 
00974000 
00935000 


00937000 
00938000 


~ 00939000 


00940000 


“00942000 


00943000 
00944000 


START OF SEGMENT « 


00945000 


00947000 
00948000 


00949000 
00949100 


00950000 
00951000 


00953000 
00954000 


00955500 
00956000 


00958000 


00961000 
00962000 7 


00963000 T 


00964000 T 


AA HAMA 


T 
T 
T 
T 
00941000 T 
- 
T 
T 
r 
T 


oe ee pe ee eee eae eee 


0347 
0347 
0347 
0348 
0351 
0351 
0333 > 
0358 
0359 
058" 
0364 
0367 


0368 
0368 
0368 
0368 
0368 
0368 ~ 
0368 
0368 


wet eeeee 


0000 


36 


@ ‘ . ra s a » . > ° *" «° e 
 ] 
, SETUPSTACK3 90965000 T 0030 
00965500 T 0030 
& EMITBCOSINITIALSEGNOCTOSEGNOJs» FALSE)3 00966000 T 0030 
END 00967000 ft 0032 
ELSE 00968000 T 0032 
e@ IF ELX $ 1 THEN 00969000 7 0032 
BEGIN 00970000 Tt 0034 
ADJUSTS 00971000 t 0034 
e | T © PRGDESCBLDOR( 1s GETCSPLINK),ADOR» CADR+1) DIV 4s NSEG)3 00972000 tT 0035 
SETUPSTACK3 00973000 tT 0039 
FIXPARAMS(0)3 00974000 tT 0049 
& INFOCSPLINKeIR»e SPLINKsIC].SEGNO ¢ NSEG3 00975000 tT 0040 
ENO _ 00976000 T 0044 
ELSE 00977000 T 0044 
S BEGYN 00978000 7 0044 
. ADJUST3 009799000 T 0045 
BEGINSUB © CADR#1) & NSEGLTOSEGNO)3 00980000 r 0048 
@ EMITL¢17)3 EMITOCSTD)3 00981000 fT 0047 
SETUPSTACK3 00982000 T 0049 
00982100 Tt 0049 
® EMITOPOCLITC(17)3 EMITOCGFW)3 00983000 7 0049 
ENDSUB « ADR & NSEGETOSEGNO]3 00984000 T 0054 
FOR I « O STEP 1 UNTIL ELX#1 DO 00985000 fr 0053 
& BEGIN 00986000 T 0057 
ADJUSTS 00987000 y 0057 
HERE « CADR41) DIV 43 009868000 7 0087 
@ T © ENTRYLINKCIJ eLINK3 90989000 tT 0089 
ZVOID fe Man soe es 00990000 T 0064 
T ¢ PRGODESCBLOR Ci, GETCT).ADOR, HEREs NSEG)$ 0 7 7 00991000 TF O06, 
@ BRANCHLITCENDSUB*FALSE )3 00992000 T 0064 
EMITBC(BEGINSUBs FALSE)3 Se ; 00993000 r 0068 
AnJUST3 : ~~" "00994000 T 0066 : 
e@ FIXPARAMS(I)3 00998000 + 0066 
— INFOCCENTRYLINKETISLINK) eIReCENTRYLINKCIILINK) «IC ]eSEGNOSNSEGS = = 00995500 T 006? 
ENO3 = 00996000 T O07, 
] ENDS 00997000 Tt 0073 
_ SZ ¢ CADR+4) DIV 43 sete 90998000 T 0073 
CNTR « O3 00999000 T 0075 
& CURSEG « NSEG3 00999100 T 0076 
WRITEPGM! Utica shee adelante ey eee ete, Se esata een 01000000 7 0076. : 
NSEG ¢ (CT * 82) + 29) DIV 303. 01001000 ~ 0077 
& IF DALOC DIV CHUNK < I © CDALOC#NSEG) DIV CHUNK 01002000 r 0079 
tie eter sts THEN DALOC ¢ CHUNK x If  & INSURE SEGMENT DONT BREAK = _—=—_—_—_—s 0403000 tT 008) __ : - 
¥ ACROSS ROW 01004000 ¥ 0083 
r IF LISTOG THEN WRITALISTCSEGENDs 2s CURSEGs 7209020202080) 3 01008000 T 0083 
esl ote sc POPRTCPOIRsPDOIC] « = = = = PDPRT ENTRY FOR SEGMENT = = = =—=——s—_—s 09006000 FT 00868 ayes 
SZaDALOCUDKAC) 61007000 T 0096 
& &@ GETCSPLINK) (1281481) 01007100 7 0092 
dele Pe toes een Sno é ACURSEGESGNOC)S ee 01008000 y 0093 
IF ERRORCT 3 0 THEN “04009000 7 0098 
] DO REGIN 01010000 7 0095 
De cen a sae eae FOR TeQ STEP 2 WHILE I < 30 AND CNTR < SZ 0O aia eet Danial oar et olan bent: A OOO EE OI 6 cece. tee case eae oe 
BEGIN MiCEDOCCCNTR, £3Bt3IsCNTR. C4187 ))2CODE(1I)) 01012000 7 O109 
 ] CNTR © CNTR + 23 01013000 T 0107 
Se eee ee ae tata Bias Mn ares Stn crete Sh hei ce nthe Deeb aptl e See cate aetna Aca trtl ae s (OEROUO. Ne ONOR shoe ca tet oy con 
WRITE CCODECDALOC))3 01015000 7 0109 
& DALOC ¢ DALOc 413 01016000 tr O1f%4 
@ 


—+ 


! 


I 
| 
i 
| 
{ 


| 
i 
1 


END UNTIL CNTR 2 SZ} 
PDINX ¢ PDINX +13 

IF NOT SEGOVFLAG THEN 
DF RE NEN on cet tits as cgi nse | 
IF CEQDS¢(NEXTSEQF))AND NOT XGLOBALS THEN ELSE 
BEGIN KLASS(6] © "LABEL "3 


END3 
IF LISTOG ANDO SEGTYP AND SEGPTOG THEN WRITECPTROEPAGE) )3_ 


IF SEGTYP THEN 


WRITECXREFFsXRBUFFsXRRYC#)) 3 


‘IF FIRSTCALL THEN DATIME ELSE WRITECPTREPAGE) 3 
IF SPLINK<O THEN 
i gREGIN WRITECPTRs XHEDB) SREWIND(XREFF )3END 

L 


IF EQOS THEN BEGIN WRITECPTR*XHEDG)S REWIND(XREFG) END 


ELSE BEGIN REWINDCXREFF)$ C2CXRI4),SUBCLASSx245)3 


TF TTeXRCGTCLASSSFUNID THEN” WRITECPTRsXHEDFs 


ELSE IF ITSSUBRIO THEN WRITECPTR»sXHEDSsXRO3)5  ~ 


ENDS 
IT¢XTACO § 
LASTLINE ¢ FALSE3 
BLANKITCPRINTBUFFs 1550)3 


IF XRI>1023 OR EQOS THEN SORTCPT» INP» OsHVsCMPs 394000) 


XREC2)sxXRECC241]eXRC3I]oXREIC2412), 
XROC24143) 9% eww waan) 


Vamamamity ELSE WRITECPTR»e XHEDM)3 


ELSE XREFCORESORT 3 
REWINDCXREFF)S hee Abels 
PXREF¢YF XREF THEN TRUE ELSE FALSE3 


KLASS(6) 


¢ "ERRO 


IF CNOT SEGTYP 
NOT SEGPTOG) THEN WRITE CPTREPAGE)3 


BEGIN 


R "5 


AND EQDS) OR CSEGTYP 


FOR I¢12s17 STEP 1 UNTIL 24539 STEP 1 UNTIL 415 
50 STEP 1 UNTIL 57 DO TIPECIJ*REALIO 3 

FOR I#25533 STEP 1 UNTIL 37 oo TIPECIIJ©INTID 3 
LASTNEXT#1000 3 


END 3 


ENOSEGTOG «+ TRUES 
TSEGSZ « TSEGSZ + §23 


COMMENT IF SEGSW THEN LETS ALSO WRITE OUT THE LINE SEGMENTS = 


IF NOLIN > O° THEN | be Li legiSeae eas eats 
BEGIN 
. _LINEDICTUECURSEG, IRsCURSEG,Ic] « ¥ UPDATE LINE DICTIONARY 


0 &@ NOLING16433815) & DALOCES3833t1SySRFOR THIS SEGMENT ~~~ 


THAT WE VE GONE TO SUCH TROUBLE BUILDING. LINESEG 
CONTAINS A CARO SEQUENCE NUMBERCBINARY) IN 610828) 


AND THE WORD BOUNDARY ADORESS OF THE FIRST CODE ~~ 


SYLLABLE IN (3881013 
IF SEGSW THEN 


CNTR ¢ O83 


FOR I ¢ © STEP 
BEGIN 


DO BEGIN 


oo METS ESS 0: AND JCNTRSNOG UN 00's ain gd, 


MICLINESEGEONTReCIBESISCNTR CALIF IIS CODECI) 3 


SI le eS Ae a ae 


ENDS 
WRITECCODECDALOCI)3 


+ 


* i . 


AND LISTOG AND 


Sg Oa fg rn ee ee 


01017000 y O11%5 
01018000 fT O16 
01018025 T OQ118 
01018100 7 O119 
~~ OLo1e811O TF 0126 
01018120 rf 0123 
01018125 rt 0125 
~OLOTSI30 y 0129 
010168135 7 0137 
01018140 T 0137 
“OLOTS1Tas 7p Oa 
01018150 yr 0143 
01018160 7 0149 
OLOTSi70 fF OSS 
01018180 rt 0158 
01018190 y 0167 
01018200 y+ O170 
01018210 ~ 0183 
01018220 7 0492 
01018260 fr 0192 
01018280 TF 0194 
01018320 ~T 0195 
01018330 rT 0197 
01018340 T 0218 
01018350 tT 0224 
01016355 ¥ 0223 
01018360 ~ 0226 
01018370 Tt 0227 
01018378 + 0230 
01018380 tf 0236 
01019000 tT 0236 
— OL0T9yoo ¢ 0248 
01019110 T 0243 
01019150 tT 0243 
01019160 7 0253 
01019170 T 0260 
01019190 7 0267 
O1G19200 7° U2Zbe 
01020000 T 0268 
01021000 T 0270 
01021010 TF 0274” 
01021150 T 0274 
01021200 7 O274 
01021250 FT 0271 
01021300 7 O274 
01021350 T O274 
ee irre a 
01021400 fT 0273 
01021450 Tt 0273 
01021500 - 
01021550 7 0277 
01021600 7 0279 
601021650 FT Ub 
01021700 y 0284 
01021730 T 0289 
01021600 fT 0290 ~~ 
01021850 tT 0294 


att Li Tan 


: i ; ; : . i : : : : i 


Ss 


ee 


Hacoc * DALOC + 13 . 
END UNTIL CNTR 2 NOLINS 
END 3 
IF NOT SEGOVFLAG THEN XRI tx 03 ar 
IF BEBUGTOG THEN FLAGROUTINEC™ SEGM"s"ENT 
END SEGMENTS 


“SPALSE) 5 


PROCEDURE WRITEDATACSZ»SEGsARY)3 % WRITES OUT TYPE 2 SEGMENTS 
VALUE SZsSeG3 
REAL SZsSEG3 
ARRAY ARYLOJ3S 
BEGTN . . a9 
INTEGER Te NSEGo Ts CNTR3 


INTEGER TYPES 
STREAM PROCEDURE M30¢FeT»S2Z)3 VALUE SZ3 
BEGIN 
SI ¢ F3 OL «© T$ OS & SZ WOS3 
END M303 


IF SZ 2 0 THEN TYPE © 2 ELSE SZ ¢ “S23- 
NSEG «© (C T « 82) + 29) DIV 303 — 
IF OALOC DIV CHUNK < I © (CDALOC#NSEG) DIV CHUNK 
THEN DALOC ¢ CHUNK x T3 
POPRTCPOIRsPDIC)  « 
SZ&DALOCCDKAC) 
&TYPECSTYPC) 
&SEGESGNOCI3 
PDINX ¢ PDINX + 13 
IF ERRORCT #2 0 THEN 
FOR I ¢ 0 STEP 30 WHILE I «< SZ DO 
BEGIN 
M30CARYCTIsCODECO)SIF (SZ*1) > 30 THEN 30 ELSE (SZ=1))3 
WRITECCODECOALOCI)3 
DALOC « OALOC + 13 
END$ : eat 2 ae ous Be EE De besten ote Mati es 
IF LISTOG THEN WRITALISTCSEGEND? 2sSEGsTs02020202020) 3 
TSEGSZ « TSEGSZ + S23 
END WRITEDATA3 


REAL PROCEDURE PRGDESCBLORCOTsPRT»RELADR*SSGNO)3S | 
VALUE DT»sPRT#RELADR»s SGNOS 
REAL OTsPRT»sRELADR»SGNO) 
BEGIN | 


FORMAT FMTC"PRTS",Ade%s REL@ADRE"™sAdo%s SEGR*sTGe%s TYPEMsA2)3 = 


(3618 


START OF SEGMENT 


37 1S 


91021900 T 0296 
01021950 tT 0297 
01021955 7 0298 
01021937 y 0298 

04021959 7 03064 
01022000 tT 0303 

309 LONG» NEXT SEG 
01023000 tT 0368 
01024000 T 0368 

~ 01025060 7 
01026000 ft 0368 
01027000 y 0368 
01028000 Y 0368 
keer eeeews 
01629000 rT 0000 
01630000 T 0000 
01031000 rt 0000 
01032000 T 0000 
01033000 Tt 0004 
01034000 T 0004 

““OLOTSONO F 
01036000 ry 000? 
01637000 ~ 0009 

—“O{OI8000 FF OVS” 
01039000 fr 0014 
01040000 fT 0015 

01041000 tT 0016 
01042000 Tt 00148 
01043000 7 0019 

01044000 T 0020 
01045000 rt 0024 
01046000 7 0024 
01047000 rf 0032 
01048000 7 0036 

01649000 T 0038 
01050000 7 
01051000 T 0043 
01052000 tT 0044 ~~ 

48 LONGs NEXT SEG 

01053000 T 
01054000 ft 0368 
04055000 T 0368 

_ 01056000 tT 0368 
01057000 fT 

REWER EAHED 


START OF SEGMENT 


71 


DOB, oo esoactoatontes. nid Sith Maasis 


SOS ee nai 


Seay oS See Sotett 


37 


“9008 


agar er ee 


38 


pa 


oe 


START OF SEGMENT weetteavew 39 

39 18 43 LONGs NEXT SEG 38 
IF PRT=0 THEN BEGIN BUMPPRTS PRT+PRTS END3 01058000 T 0000 
POPRTFPDIRsePDIC] «¢ 01059000 rt 0005 
 OapTtDTYPCd ge ggo0ce 7? O00R 
&PRTCPRTAC) 01661000 rt 0009 
&RELADRCRELADC) a eee 01062000 T 0010 
“BSGNOCSGNOCI3 oo ~ 94063000 r O0144 
PDINX «© PDINX + 43 01064000 T 0012 
IF CODETOG THEN MOET TE nee pace OEM OER anne a enon 01065000 -f O014 

IF BTsO THEN PAE ELSE IF ptet THEN "PD* ELSE "LO"20209000) J ~~ ~ "OYOSSO0O fF DOT? 
PRGEDESCBLDR « PRTS 01067000 ¢ 0023 
END PRGNESCBLOR3 . . 01068000 y 0024 
2g OO gE aN LONE, NEXT SEQ Ce 


PROCEDURE EQUIVCR)2 VALUE R3 REAL R3 01069000 Tt 0368 
COMMENT THYS PROCEDURE FIXES UP THE INFO TABLE FOR THE EQUIV OR - ~ 01069100 T 03648 
COMMON RING. THE FIRST ELEMENT PAST HAS AN OFFSET ¢€00 NOT 01069110 7 0368 
ALTER THIS) THE TYPE IS FIXEDe THE OFFSET IS DETERMINED 01069120 7 0368 
FROM THE FIRST. CORRECTINFO ADJUST THE OFFSET IF THERE 01069130 7 0368 
1S A NEGATIVE OFFSET ON ANY ELEMENTe THE INFACLADJ] BIT IS 01069140 T 0368 
SET IF THE ELEMENT HAS A NEGATIVE OFFSET. IF THE ELEMENT 01069150 T 0368 
APPEARED IN MORE THAN ONE EQUIVALENCE STATEMENT OR AN | : ~~ 4069160 7 0368 
FQUIVALENCE STATEMENT AND A COMMON STATEMENT THE ELEMENTS 01069170 T 0368 
ARE LINKED BY COMELASTC] WHICH POINTS TO THE HEADER 01069180 7 0368 
OF THAT STATEMENT3 oo ~*~ 99069490 TF O368 ~ 
BEGIN 01070000 T 0366 
DEFINE BASS = LOCALS #» x THESE DEFINES “ARE USED TO REDUCE THE 01071000 T 0368 
a ~ START OF SEGMENT weevieawew ~ 40 
REL = PARMS #» % STACKSIZE OF EQUIV FOR RECURSION 01071100 T 0000 
I = PRIS ts ae rete Yee ce Se 01071200 T 0000 
T = LSTS #> j ~ "0160712530 7 0000 
0 =e LSTA #>s 01071400 y 0000 
LAST = TV pe 01671500 T 0000 
5 a SAVESUES “#0 Bo vtnak dati sASsGnit «set. 3 Ri TCLs ieee eee 
P = NAMEIND #» 01071700 T 0000 
PRTX = LSTI He Lak iho Rete HERS ict MERGER Ok Sire eh ep OVO BIO T0000 
Su tg samaaimaes TELL 
INFA m= FX2 #» 01072000 t 0000 
TENE a EB ee MB och. tk Meee “vaach ws SBiatbks lame eo edualitvae Gia. sates 01072100 Tf 0000 
INFC = Pies #3 ete Pew es 04072200 T 
LABEL XIT» CHECK 01073000 T 0000 
IF DEBUGTOG THEN FLAGROUTINEC™ EQUMs "TV ",TRUE ) 3 01073010 T 0000 
IF Getc(r)<o THEN GO TO xtt 3 recess eee 84 075000 T O00 °°” 
PUTCCRs*GETCCR)) 3 01075000 7 06003 
PRTX ¢ GROUPPRTS = = 01076000 tT 0008 
CORRAL CGETCORI SCENE) foot She See en ee ee Re Ood FOU Ok Se ee 
LAST+GETCCR).LASTC#1 3 04078000 y 0008 
BASSeGETC(R+1)3 Ped 3 01079000 T O010 
FOR 1 « R+¥2 STEP £ UNTIL LAST DO © ce EE EEE SIS EEO ROOUG Y “OOLs eee 
BEGIN IF BETCCI) +«CLASS*ENDCOM THEN TeGETCCI)aLINK 3 01081000 rt 0017 
GETALLCT*#GETC(I). LINK» INFAs INF Bs INFC ) F) 019482000 r 0024 
TF Qe INFCeS7ZE20 THEN ¥ “A SIMPLE VARYABLE ~ a ee SOSH 3000 T OO29 ~~ 
InNFC.SIZE © @ © IF INFAsSUBCLASS s LOGTYPE THEN 1 ELSE 23 01084000 T 0026 


26006 Os 


OO0G 


! 
| 
| 
| 


| 
{ 
i 
1 
1 


PUTCT+22INFC)3 
IF INFAseSUBCLASS>LOGTYPE THEN 


IF ABNOLEANCC) THEN 
BEGIN COMCPWIJ+¢RELADDEREL OP 3 
Pe P + Q3 
EnD ELSE COMCPWy),RELADDeREL*BASS#GETCCI)RELADD 3} 
Ir INFA < 0 THEN IF INFA eADJ = 1 THEN 
B « sINFC,BASE ™ REL ELSE B * INFC.BASE = RELS 


SEENADOUBCTRUES 


END 
FOR + ¢ Re2 STEP 1 UNTIL LAST DO a ee ee 
BEGIN IF GETCCT)eCLASSRENDCOM THEN Ie¢GETCCID¢LINK 3 
GETALLOCT#GETCCI)eLINKs INFA*INFBSINFC) 3 
IF INFAeCLASS = 1 THEN SWARYCT * 13 
PeB+GETCO( 1) RELADD 3 
Q ¢ INFC *SIZE3 
IF INFA <_0 THEN . 
BrGIN IF INFA eADJ =» 1 THEN BASS ©¢ *INFC 
BASS « INFC.BASE3 
IF P # BASS THEN 
BEGIN xTA ¢ INFB 
GO TO CHECK: 
EnDs | 7 
INFA « *INFA 
IF INFA eCLASS *® UNKNOWN THEN INFA 
INFA  oTYPEFIXED ¢ 15 
INFC.BASE ¢ P3 
PUTCT#2s INFC 3 
IF P< 0 THEN INFA 
PUTCTsINFADS 
CHECK? 
IF P+0 > LENGTH THEN LENGTH ©¢ P+Q3 
‘IF P < LQWERBOUND THEN CLOWERBOUND « PJ> OO 
END? 
FOR 1 ¢ R+2 STEP 1 UNTIL LAST 00 
BEGIN. 
Te GEYCCT)«CLASSSENDCOM THEN I*GEYTCCI) LINK 3 
If TeGETCCI) »LASTCAR THEN 
IF GETC(T)20 THEN 
BEGIN ReRQLAST£L3833815381618233315) 3 
cooneee CLAST@R,C3%15)3 TeR,f18815)3 ReRC33815) 3 
END 


+BASE ELSE 


3 FLAGC2) END3 


& PRTXECTOADORI; 
~aCLASS © VARID3 


ADI © 15. 


ENDS 

io At a fa i Oo ak 
IF DEBUGTOG THEN FLAGROUTINEC™ 
END EQutvs 


VPA teeeak 7 (eC os ae Gain me 


AO 1S. 


ALPHA PROCEDURE GETSPACE(S)3 VALUE $3 ALPHA S3 
BEGIN LABEL RPLUS» FMINUS» XITS — _ 


LABEL DONE3 

REAL As ever ee 
BOCLEAN OWNIDs 

IF OWNID & S < O THEN S ¢ #383 % IN DATA STMT» THUS OWN 


91085900 


91087000 


01091000 


01094000 — 


..91098000_ 


_ 01101000 


_ 01110000, 


01114000 — 


“OLTLT7000 © 


61120060 


01122500 | 


— 01122650 


01085500 
01086000 


01088000 
01089000 
01090000 


01092000 
01093000 


01095000 
01095500 


~ 01096000, 


01097000 


01099000 
01100000 


01102000 
01104000 
01105000 | 
01108000 
01109000 


01111000 
01112000 
01113000 


01115000 
01116000 


01118000 
01119000 


01121000 
01122000 


RE ROR ANS te 


aaals yey ce eee say yee at 


0034 
0032 
0036 
0036 
0044 
0042 
0052 
0054 
0059 
0060 
0064 
0068 
0074 
sore 
0076 
OO77. 
0078 
0084 


0083 


0084 
0086 
(0086 | 
0086 
0088 


_0092 — 


0094 
0098 

0096 
0099 
0100 
0101 


0106 
0106 
O110— 
O1lo 
0114 


01122550 
01122600 


01123000 
01124000 


04124010 F- 


01125000 fT 


44444 


elas 
0118 
0121 


0186 


0126 

0126 
0127 
0129 


01126000 YT, 0368 
... 01127000 T0968 2 
START OF SEGMENT weetenwnes 44 
01128000 ry 0000 
me 11h See 0 a ene meee 
01129100 7 0000 
01129200 fT 0000 


egg es The eee 


INTEGER STREAM PROCEOURE LBLSHFTCS)3 


IF A+ GETCGETSPACE*S) < 0 THEN GO To DONE 
IF AcCLASS GEQ 13 THEN FLAGC34) ELSE 
CASE AscLASS OF 
BEGIN 
BEGIN 
PUTESsA*ARVARIDETOCLASSI)3 
PUT(CS4#22(GET(S+2) &CIF A,SUBCLASS < LOGTYPE 
THEN 1 ELSE 2 yETOSTZE})93 


IF BOOLEANCA.FORMAL) THEN BUMPLOCALSS3 


3 

BEGIN A, TYPEFIXED «© 13 GO TO RPLUS ENDS 

GO TO ReLUS}3 

GO TO RPLUS3 

GO TO DQNES 

BEGIN A.TYPEFIXED ¢ 13 IF BOOLEANCAsFORMAL) THEN GO TO FMINUS 
ELSE GO TO RPLUS3 

ENDS 

BEGIN ALTYPEFIXED © 13 GO TO RPLUS ENDS ee 

IF BOCLFANCAeFORMAL) THEN GO TO FMINUS ELSE GO TO RPLUS3 

IF BOOLFANCAeFORMAL) THEN GO TO FMINUS ELSE GO TO RPLUS3 

GO TO RPLUS3 

GO TO RPLUS3 

ENO OF CASE STATEMENTS 


A.TYPEFYXED © 13 
IF BOOLFANCAsFORMAL) THEN 
GO TO FMINUS; 
IF BOOLFANCAeCE) OR BOOLEANCA.EQ) THEN 
BEGIN 
PUTCS»ADS 
CALLFQUIVCA.ADDReOWNIODSGETCS4#1)) 3 
G0 To DONES- 
aNDt 
eTWOD © REALCGETCS4#2),SIZE > 1023)3 
FMINUS! 
IF QwWNID THEN BEGIN BUMPPRT3 A,ADOR*PRTS END ELSE 
BEGYN BUMPLOCALS# A.ADOR « LOCALS +1536 END3 


IF A,CLASS = VARID THEN IF AsSUBCLASS 2 DOUBTYPE THEN —_> 


IF OWNIO THEN BUMPPRT ELSE 
BUMP: OCALS3 


GO Th XITs re 

RPLUS! 
BUMPPRTS A-,ADDRePRTS} 

XITs eaisadss asthe Rae Rant 7 
PUT(CSse @A)3 

DONE? 


END GETSPACES 


VALUE S3 
BEGIN 
LOCAL T3 


42 


41 


gas Oe eis a 


Seg p ga ee See 


Oona ee 


SONG CCU 


01130000 T 0002 
01130500 c 000% 
01131000 7 0008 
01132000 rt 0009 
01133000 rT 0009 
01134000 fT 0009 
01135000 fT 0012 
01136000 YT 00158 
01137000 t 001? 
01138000 fT 0018 
61139000 + 0023 
01140000 yr 0023 
014141000 tr 0026 
01142000 t “0027 
01143000 T 0027 
01144000 + 0028 
01145000 T 0030 
01146000 T 0034 
01147000 7T 0032 
01148000 7 0034 
01149000 tT 0037 
014150000 7 0039 
01151000 tT 0039 
01152000 T 0040 
START OF SEGMENT w«exetanten 
42 18 44 CONGs NEXT SEG 
01153000 T 0040 
041154000 tT 0042 
~~ OYLS5000 7 
01156000 7+ 0044 
01157000 T 0048 
“OLTS8000 fT  O0ue” 
01159000 T 0047 
_ 01160000 tT 90050 
01161000 7 00506 
01162000 fT 00506 
01163000 tT 0054 
~ 01163100 7 
01164000 rf 0064 
91165000 TF 0067 — 
01165100 7 0070 
01166000 fT 0078 
_ 01167000 T 0081 
01168000 fT 
01169000 r 0083 
01170000 tr 0088 
~~“ OL£71000 TT 
01172000 fT 0090 
04173000 T 0094 | 
41 8 94 LONGs NEXT SEG 
01174000 T 0368 
“OY T7s000 tT 
01176000 Tt 0368 


Se a a 


0368-0 ee 


cont 
2 


+ 


| 
4 
| 
| 
] 
{ 
j 
q 


| 
! 
| 


1 
{ 
} 
| 
| 
i 
{ 
{ 


| 


LABEL LS 
Ol © LOC LBLSHFT$ DS « 8 LIT "00 "3 
Ol * pl = 63 SI eLoc Ss SI «© Sy + 23 
TALLY © 13 T © TALLYB 

S(TCIF SCa"O" THEN BEGIN SI*SI+13 JUMP OUT 1 TO L END 

ELSE TALLY*O3 TeTALLY)3 
IF SC2"0" THEN DS*CHR ELSE IF SCa" " THEN SIeSI+1 
ELSE JUMP OUT$ Li ) 3 
IF SC # " " THEN BEGIN DI * LOC LBLSHFTS DS © LIT "4" ENDS 

END LBLSHFTS 


COMMENT EMITTERS AND CODE CONTROL? 


ALPHA PROCEDURF B2D(B)3 VALVE 83 REAL 83 
B2pD ¢ 0860451451336 C3984215)8RL33139139eB0 271368395 


% PRINTS OUT DEBUG CODE 
% IF S<O THEN S IS FIELD TYPE OPERATOR 


PROCEDURE DERUGCS}3 
VALUE S3 REAL Ss 
BEGTN 

FORMAT FFCX35 a #C 330%") oAMo MEM pALe2A(K22Ad) a X4e Ad) § 


ALPHA CODE»MNMsSYL3 
REAL T3 
PROCEDURE SEARCH(CODE,S)$ VALUE S3 REAL SsCODE3 
BEGYN & SEARCHS WOP TO FIND CODE FOR S 
REAL No T3 


LABEL L3 
N ¢ 64 
FOR I : 66 STEP IF WOPLI] < S$ (THEN N ELSE =N 
WHILE N © N Ofv 2 2 1 00 i. 
IF WOPCI) =S THEN GO TO L3 
I « 03 % NOT FOUND 

L? COME «© WOPCI41)3— 

END SEARCH3 


If S «< 0 THEN 

BEGIN & FIELD TYPE OPERATOR 
SYL « $3 
MNM © B20¢Se£3686))3 


IF. CS¢. Sel4236]) = 37 THEN CODE © "ISO " ELSE 2 


IF 5 = 45 THEN CODE + "DIA " ELSE 

IF S m 49 THEN CODE « "DIB " ELSE 
spice ES MoS NEN CODE (62 SURG Be cc coiw culedcedntlsledagieee 
END 

ELSE 


01177000. 


01178000 
01179000 


91180000. 


01181000 
01182000 
01183000 
01183100 
01184000 


91185000. 


01186000 


01187000 
01186000 


01189000 
01190000 
01191000 7 
01192000 


START OF SEGMENT 
START OF SEGMENT 


roy 
Sal 
~ 
oO! 


a4 4 
ao 
ww 
2 Oo 
ro 


yr 0389 

Tr 0389 
0389 

2 0389 

WRERNRA RED 

eaenekkate ek 


45 


Ox 


44 1S 18 LONGs NEXT SEG | 
01193000 ~ 0000 
01194000 tT 0000 

01195000 tT 0000 — 
01196000 tT 0000 
01197000 t 0000 

START OF SEGMENT weetthewwe 
01198000 T 0000 
01199000 tT 0000 
01200000 fT 0000 

“01201000 7 O668 ~" 
01202000 tT 0009 
01203000 T OO11 
01204000 + O011 
01205000 ft 0013 

45 18 16 LONG» NEXT SEG 
03206000 © tT 0000 
01207000 7 0000 


01208000 T 000; 


01209000 T 


1210000 7 0003 000 


0002 


01211000 r 0006 
01212000 r 0014 
pb | ee eee 


01213000 7. 


01214000 fT 
01215000 T 


0019 
0019 


z i A - 
i : 


BEGIN rT 01216000 t 0019 
IF (T © S8e04682)) ¥ 1 THEN 01217000 fT 0024 
BEGIN 01218000 r 0022 
S¥YL #¢ SF 01819000 r 0023 
MNM © B2D06Sef36810))3 01220000 7 D024 ~ 
IF T # O THEN CODE ©¢ "LItTc 01221000 y 0025 
ELSE IF T #2 THEN CODE + “OPDC™ 01222000 tT 0027 
ELSE CODE « "DESC"; 01223000 + 0031 
END 01224000 T 0034 
ELSE he . a oY 014225000 - 0034 
BEGYN % SEARCH WOP FOR QPERATOR NAME 01226000 + 00347 
SYL «83 01227000 T 0037 
MNMe# *# MY _ 04228000 t 0037 
SEARCH(CODE®S.£362101)3 “O{229000 +t S034” 
ENDS 01230000 T 0040 
END; 1 axeieesnatlns stake asks eee OR Ee eee ee RTL ted Se eee Tene 01231000 7 0040 
WRITALISTCFF 6s IF ADRSOEBUGADR THEN 1 ELSE @12B20CA0R, (36103), | 64232000 7, 0080 ~~ 
B2DCADR.64622]) »CODE»MNMeB2D(SYL)2000) 3 04233000 rf 00446 
IF DEBUGADR<ADR THEN DEBUGADReADR 3 01233100 + 0048 
END DEBUG3 01234000 T 0050 
43 IS 54 LONG, NEXT SEG 6 
PROCEQDURE DEBUGWORDC(N)3 VALUE NS REAL N3 SPRINTS OUT C* CONSTANTS 01235000 T° 0389 
BEGYN 01236000 T 0389 
STREAM PROCEDURE WB20(FsT)3 04237000 tT 0389 
URE. Re CE ae oO SURET-OEOSRGMENT deeeeRRaW 46 
REGIN 01238000 T 0000 
DI « T3 01239000 tT 0000 
“DT¢O1+353 OSeLOLIT"CONSTANT  §$ 0 04240000 7 0006 — 
Sl ¢ F3 01241000 t 0002 
16¢DS + 3 RESETS 3¢IF SB THEN DS + SET. | 01242000 + 0002 
ELSE OS « RESETS 01243000 7 6003 
SKIP SB))3 012446000 T 0004 
END WB2D3) 01247000 T 0008 ~ 
ARRAY ACO81413 FORMAT FCX639"(CDEC "sBs"") 3 01248000 tT 0005 
START OF SEGMENT weueewetan 47 
5 Ey ESP LONGS NEXT SEG 48 Oe 
WRITECAL#IeFeN)3 WB2DCNSA) 3 01249000 7f 0007 
_ WRITAROWCL59A) 3 01250000 T 0017 
END DEBUGWORD3 oe" “OPaSlO00 fF OO~Q 
46 IS 23 LONG, NEXT SEG 6 
REAL PRACEDURE GITt 233° %* RETURNS” OPERATOR IN SYLUCABLE 2 rrr OOO Por OQ rr rere 
VALUE 23 REAL Z3 01253000 T 0389 
BEGIN 01284000 fT 0389 


INTEGER STREAM PROCEDURE GTCS»sSKP)3 VALUE SKPS UU O1255000 Tf OSBG 


START OF SEGMENT s#etttenen 


48 


» © 


i i 
( 
1 


i 


—_ 


ne . » 7 « 


IN eet 
BEGIN. « $F SKPCST © SI + 25 


Or ¢ LOc GT3 OF © DI + 63 DS © 2 CHR 
END GT3 


GIT © GTCEDOCEZ6£3683352,039873) 62 .046829)3 
ee 


REAL STREAM PROCEDURE SPCLBIN2DECCN)3 
BEGYN LOCAL L3 LABEL B1 3 

DI*_OC 13 SI*LOC Ns DS*BDECs STeLOc L3 TALLY#8 3 

IF sC="0" THEN BEGIN TALLY*TALLY#633 SI*SI+13 GO 81 END 3 

DLe_OC SPCLBIN2DEC3 Dl eDI+25 DSe6LIT” "3 DI eDI=-63 NeTALLY3 DSeN CHR 
END OF SPCLBIN2DEC 3 


RUE NE. need 


Bis 


STREAM PROCEDURE PACK(T»sF,SKP)3 VALUE SkPosF3 


BEGIN % PACKS OPERATORS INTO EDOC 
; SI ¢ LOC F3 SI * S]Y + 63DI © T3 SKPCDI © DI + 293° 
DS * 2 CHR) 
END PACKS 


PROCEDURE EMITOCN)2 VALUE NS REAL NS 
BEGIN 
BUMPADR3 | 
PACKCEDOCCEDOCT),» CNS TENT ION SET LOT T+AOR. caereyyr 
IF CODETOG THEN DEBUGCN)3 
END EMITOs; 


PROCEDURE EMITNCP)3 VALUE P3 REAL P3 
BEGIN LABEL XIT3 


ALPHA S3 
IF S.* GETCP) > 0 THEN S « GETCGETSPACECP))3 
IF S.CLASS » VARIO THEN IF BOOLEANCS.CE) THEN 
Ir BOOLEANCS.»TWOO) THEN 
BFGIN. 
EMITL( (CTeGETCP 42) ,BASE) .033873)3 
EMITDESCLITCS,ADDR)3 
EMITOCLOD)3 
EMITLOT.C40%8))3 
EMrTOCCOC)3 


- 81589888 F 


“START OF SEGMENT weettunten | 


8888 


0004 


‘ 


PO ies 5 hah aes 


01258000 Tt 0004 
01259000 T 
01260000 Tt 0003 
01261000 T 0008 
{Ti LONG, NEXT SEG 
01261100 7 0389 
01261110 T 0389 
01261120 7 0390 
01261130 T 03991 
01261140 7 0393 
01261150 T 0396 
01262000 Y 0397 
01263000 + 0397 
01264000 7 0398 
01268000 T 0400 
01266000 7 0400 
“OL267000 T° O400 
014268000 T 0400 
01269000 T 0400 
~ 04270000 tr 0403, 
01271000 Tt 0409 
_ 03272000 TF O410 
01273000 T 04192 
01274000 tT 0412 
01275000 y 0000 
01276000 1t 0000 
“01277000 
01278000 T 0006 
04279000 T 0007 
“01280000 y+ 6008 
04281000 yr 001% 
01282000 TF 0013 
01283000 T 
01284000 T 0015 


Se, ec Sar gees Fas is One ad 
: i 1 t , { 7 $ i 1 
: : ‘ : i : i : 


GO To xIT3 
END ELSE 
EMI TNUM(GETC(P+2) BASE) 
ELSE 


Ire NOT BOOLEANCS.FORMAL) THEN IF NOT DESCREQ THEN 


BEGIN 
EMITL¢Se¢S.ADDR):3 


IF $.037%2) = 1 THEN SREFERENCING 2ND HALF OF PRYS 


BEGIN 
IF aOR 2 4087 THEN 
BEGIN ADR « ADRe13 SEGOVF ENDS 
EMITOCXRT)3 
ENDS 
GO TO XIT3 
EnO3 
EMITDESCLITCSeADDRIS 
xIT?! 
END EMITNS 


PROCEOURE EMITVCP)3 VALUE P3 ALPHA P3 
REGIN 
ALPHA S$ 


IF S ¢ GETCP) > 0 THEN S © GETCGETSPACECP))3 


IF STCLASS = VARIO THEN 
TF BOOLEAN(S.CE) THEN 
_IF BOOLEANCS,TWOD) THEN 
Te ee 


EMITLE CTeGETCP42),B8ASE),£3387))3 


EMITDESCLIT(S.ADDR)5 
EMITOCLOD)3 


IF S,SUBCLASS 2 DOUBTYPE THEN 


BEGIN 
“EMITOCOUP D3 © 


EMITPAIRCT.C40%8)4+15 COC)3 


neat MET OOOH ee oe ek as 
EMITPAIRCT.£40tB8I» COC)3 


END ELSE EMITPAIR(T.C40tBI)» COC)3 


ENO 

ELSE 

IF S,SUBCLASS 2 DOUBTYPE THEN 
_ BEGIN. 


EMITNUMC CT#GETCP4+2),BASE)41)3— 


EMITOPOCLITCS.sADDR)I 
EMITNUM CT) 3. pees ah 
EMITOPDCLITCS,ADDR)3 
END ELSE 
.. BEGIN 


 EMETNUMCGETCP+2),BASE)3 00 


EMITOPOCLIT(S.ADDR)3 
END. 


ELSE. 
Ir S.SUBCLASS 2 DQUBTYPE THEN 


49 18 | 


START OF SEGMENT 


01285000 T 0018 
01286000 T 0016 
01287000 + 0016 
01288000 T 0019 
01289000 7 0019 
01290000 T 0024 
01291000 T 0022 
O1292000 T 0024 
01293000 T 0025 
01294000 7 0025 
01295000 + 0026 
01296000 7 0028 
01297000 T 0029 
““OPBIBOOO + 
01299000 T 0034 
01300000 T 0034 
01301000 fF 
01302000 7 0033 
36 LONGs NEXT SEG 
01303000 7 0412 
01304000 tr 0412 
OT3IO5000 FT O4La” 
REKREAN ARH 
01306000 tT 0000 
OL307000 TF 
01308000 T 0008 
01309000 T 0006 
gtyranog ies 
01311000 T 0008 
01312000 7 0014 
“OL3T3000 FT OOTs 
01314000 rT 0043 
01315000 7 0018 
‘OT ST6000 ¥ OOPS 
01317000 y 0016 
01318000 T 0018 
(013196060 7 
01320000 T 0020 
01321000 T 002 
01322000 T 0022 
01323000 T 0022 
01324000 T 0024 
01325000 ¥ 0024" 
01326000 T 0028 
91327000 tT 0029_ 
01328000 7 0030 
01329000 Tt 0034 
01330000 r 0034 
~ OL331000 ~ 0032. 
01332000 7 0034 
_91333000 T 0035 
01334000 T 
01335000 7 0038 


e 4 


a 


‘o079°° 


Pty ee 


-o00g 


coor 


‘wus 
0022) 


6 


50 


e @ 


——+ 


vw a 


SRV EM UTD, aio lek uc ones Percent seca cten ides 


PROCEDURE EMITDOTCBa Asx )3 


sworn il Een GAT RY NTE os oe ep cee auteurs tarien dlls 


Ie BOOLEANCS.FORMAL) THEN 
BEGIN 
EMITDESCLITCS.ADDR)3 
EMITOCDUP)S 
EMITPAIRG 1s 
EMITOCINX)3 
EMrTOcLOp 23 
EMITOCKXCH)3 
EMrTO¢LOD)3 
END ELSE 
BrGIN 
EMITOPDCLITCS,ADDRe1 93 
EMYTOPDCLITCS,ADDR)3 
END 
ELSE EMITOPDOCLITCSeADDR) 
ELSE EMITOPDCLITCS.ADDR)3 
END EMITV3 


XCH)3 


PROCEQDURE EMITLC(N)S VALUE N3S REAL N3 


BEGIN 
BUMP ADR3 


PACK CEDOCCEDOCIJs(Ne©O&N(36838340])sADR, (4682393 | 


IF CODETOG THEN DEBUG(N)3 


PROCEDURE EMITOCRs OP)3 VALUE Re OPS REAL Roe OP3 

BEGIN — 
BUMPADRS  —> 
PACKCEDOCLENOCI3+ CR © OP & RE36242%6))» ADR, £4622))3 
IF CoDETOG THEN DEBUGC@R)S 


“END EMITD3 


VALUE Bs AsX)3 INTEGER BoAoX 3 
“BEGIN & OOFS OIB Bs DIA A» TRB X3 HANOLES CBtAtx), 
EMIrO(BeB MOD 648 DIV 6x8sDIB)3 
EMITOCXeXeTRB) F 
END OF EMITDOT 3 


PROCEDURE EMITPAIR¢Ls OPI VALUE Le OPS INTEGER Le OPF 


BEGIN 
EMITLCL)3 


BEGIN 
IF aOR 2 4087 TREN 


EMITDCA®A MOD 6*A DIV 6x8eDIA) 3 


01336000 7... 
01337000 
01338000 

01339000 7. 
01340000 
01341000 

91342000 . 
01343000 


T...0037.. 
T 
T 
T 
T 
T 
T 
T 
01344000 T 
af 
T 
T 
T 
T 
T 
T 
T 
, 


0038 
0039 


0044 
0042 


0043 
0044 
013945000 7 
01346000 
01347000 
01348000 
"01349000 
01350000 
01351000. 
01352000 
55 LONG 


“0045 
0045 
0047 


0048 
0049 


~ 01353000 fT 
01354000 T O412 


0043 


O8l2 © 


agus 
NEXT SEG 


..01355000 7 0412 


01356000 rt 0414 
01357000 Tt 0420 


04358000 7 O42, 


0040)  . 


6 


OAD ots, aide a 


01359000 7 0423 
01360000 7 0423 
QF ae1000 F-Oaay TT . 
01362000 7 0425 
: a 94363000 T.049g : 
01364000 T 0432 
01364010 7 0434 
~ en ne nn SBR Eg gg gn cn 
01364030 7 0434 
Od POR OSS Ty OOO ork oaica hoe otuietia 
01364040 7 0442 
pects ca Od OOO Nea cate 
01366000 7 Qaag 
01367000 tT 04492 
ae on 968000 T  OOHS eis 
01369000 T 0445 
01370000 7 0445 


| 


REGIN ADR ¢& ADR413 SEGOVF END3 
EMITOCXRT)3 
ENDS 
EMTTOCOP)S 
END EMITPAIRS 
PROCEDURE ANJUSTS 7 
WHILE ADR.C4622) #43 DO EMITOCNOP)3 
PROCEDURE EMITNUMCN)? VALUE N$ REAL N3 
BEGIN 
DEFINE CPLUS = 179243 
IF Nel3!6] 20 AND ABSCN) «< 1024 THEN 
BEGIN 
EMITLON)3 
IF N < 0 THEN EMITOCSSN)3 
END ELSE 
BEGIN 
IF ADR 2 4079 THEN 
BEGIN ADR © ADR+13 SEGOVF END3 
EMITOPDOCLITC(CPLUS + (CADR+1),04681) + 193 
EMYTLC2)3 
EMYITOCGFW)3 
ADJUSTS 
BUMP ADR3 
PACKCEDOCLEDOCIJ.N,£it111,A0R,(4612193 
BUMPADR} 
PACKCEDOCCEDOCII»N.£129121],ADR,(46182))3 
BUMPADR3 
PACKCEDOCCEDOCIIAN,£24812],A0R,0C4682))3 
BUMPADR3 
PACKCEDOCLCEDOCIJ+N.£368123,ADR. C4682) 93 
IF Nef 36812]249 THEN %%¥% IF C*REL CONSTANT LOOKS LIKE AN XRT 
EMITOCNOP) 3 23% THEN INSURE AGAINST PeBIT INTERRUPT, 
IF COMETOG THEN DEBUGWORD(N)3 
See OPS Son otek artes tc toraaton Echt te seieaetluadie sucks. Movecaeiee 
END EMITNUM3 
PROCEDURE EMITNUM2CHTS COTIVACUE Hs LO REAL HL LOR oe 
REGTN 
BOOLEAN Bs REAL TsNS 
LABEL 2X 3 
i NEFINE CPLUS = 179283 
IF HIs0 OR (O=O THEN BEGIN EMITNUMCLO)$ EMTTNUMCRTDS GO Z END J 


ADJUST? 


01371000 
01372000 
01373000 
01374000 


01375000 


01376000 
01377000 


01378000 
01379000 
01360000 


START OF SEGMENT 


“OE FOROS 


51 1S 


01381000 
01382000 
01383000 
01384000 
01385000 
01386000 
01387000 
01388000 
01389000 


~ 61390000 


01391000 
01392000 


01393000 


01394000 
01395000 


01396000 


01397000 
01398000 


04399000 


01400000 
01400400 


01400600 


01401000 
01402000 
~ OL 403000 


01405000 
01406000 


++ 


T 
T 
T 


eenetathekee 


an atta ak ta 


T 
T 


AAA 


0446 
0448 
0449 
0449 
0450 


0452 
0459 


0455 
0455 
0455 


0000 
0002 
0003 
0003 
0005 
0005 


0008 


0004 
00114 


0013 


0014 
001s 


901s 


0018 
0022 


0025 © 


0029 
0032 


“0ag 


0039 
0043 


0045 


0046 
0047 


00a? — 
51 LONGs, NEXT SEG 


pers 014040007 ~04S5- See Se ee a ee ge aver 


0455 
0455 


START OF SEGMENT wanttenwns 


01407000 7 0000 
01408000 Y 0000 


01409000 


T 


0004 


31 


—3°0-— 


DOUG 


& 


ae 


tr ADR. 2. 4077 THEN ; 
GIN oReABNeLs SEGOVF ADRe#1 ENO 3 

pirecote iy Cerne + 2)3 EMITOPDCLITCCPLUS + 1)3 
EMITPAIRC32 GE HJ 

xX! FOR I « STEP 1 UNTIL 3 DO 

RBEGYN 
CASE I OF BEGIN | 

* HIOC 131193 

¢ H1.£12%12]3 

© HYeC24t12)5 

¢ HI,€3691233 

END CASE3 


2222 


BUMPADRS PACKCEDOCCEDOCIJsNsADRo646!2))3 
END} 
IF CODETOG THEN DEBUGWORD(HI)3 
IF NOT B THEN BEGIN BeTRUES HIeLOs GO TO Xs ENDS 


IF Nz49 THEN %%% IF C™REL CONSTANT LOOKS LIKE AN XRT 


EMITOCNOP) 3 %%% THEN INSURE AGAINST PeBIT INTERRUPT, 
Zt 
END EMITNUM23 


PROCEDURE EMITLINKCN)S VALUE N3 REAL N3 & EMITS LINKS 


BEGIN = = 01429000 T 0458 
FORMAT FFCX95 2 *# C3307 "II oAdo MEM rAd en” Linen sete sa erenear: 3 01430000 7 0455 
START OF SEGMENT wtattwaren 54 
START OF SEGMENT eee#eteede 55°° °° 
55 1S 16 LONGs NEXT SEG 54 
BUMPADRS 01431000 fT 0000 


PACKCEDOCLCEDOCII,Ns ADR.~C4632))3 


91419988 | 988 
niaiz000 yr 0008 
014443000 7 004 

“o1ais000 TF 9043 
01416000 T 0016 
61417000 7 0016 
01418000 r 0016 
01419000 7 0018 

_.01420000 7 0020 


01421000 + 0022.0 °° 


01422000 7 0023 


_ START OF SEGMENT seaeeeewne 530000 


53 18  § LONG, NEXT SEG 52 


01423000 7 0024 
01424000 7 0030 
01425000 T 0033 
01426000 7 0034 
01426400 7 0039 
01426600 7 0039 
01426650 fT 0044 


04427000 F 004, 
52 18 44 LONGs NEXT SEG 6 


01428000 fT 0455 


01432000 rt 0002 


IF CODETOG THEN 01433000 7 0006 

WRITALISTCFFs4e1F ADRSDEBUGADR THEN 1 ELSE *1*B20CADR,C364103), 01434000 7 0006 
B20CADR.64622)) sB2DEN) 90900090) 3 01435000 tr 0012 © 

IF OCERUGADR<ADR THEN DEBUGADREADR 3 01435010 7 0015 

END EMITLINKS 01436000 t 0017 


PROCEDURE EMITSTORECIX» EXP)3 VALUE IX» EXP3 REAL IX EXPS- a 


BEGIN 
REAL Es vT3 


P + REALCERRORTOG)3 
ERRORTOG « FALSES 
E + GETCGETSPACECIX))3 


IF NOTC CVT ¢ E€.SUBCLASS) = LOGTYPE FQV EXP = LOGTYPE) OR = = 07 


NoT¢CVT = COMPTYPE EQv EXP ® COMPTYPE) THEN 

BEGIN XTA © GETCIX41)3 FLAGCB6) ENDS 
IF E,CLASS = VARIO THEN 
BEGIN 


54 18 19 LONG, NEXT SEG 6. 


01437000 T 0455 


01438000 7 0455 — 
01439000 r 0458 


_. START OF SEGMENT #eeeeeenee 56 


01440000 T 0000 
01441000 T 0000 
01442000 T 0004 
01443000 T 0003 
01444000 7 0006 
01445000 T 0008 
01446000 7 001] 
01447000 T 0012 


$ 3 . , 
: % i - t 


| 
{ 
| 


— 


te BOOLEANCEeFORMAL) OR BOOLEANCE.CE) THEN 
BEGIN 


IF VT § LOGTYPE THEN 
BEGIN. 


IF vT = INTYPE AND EXP 2 REALTYPE THEN EMITPAIRG1s IDV)5 


EMYTNCIX)3 

EMITOCIF VT = INTYPE THEN ISD ELSE STD)3 

IF EXP 2 DOUBTYPE THEN EMITOCDEL)3 | 
END ELSE 
BEGIN 

EMITNCIX)3 ios a 

EMITPAIRCJUNKs STNI3 

EMrTTOCSTO)3 


IF EXP < DOUBTYPE THEN EMITLCO)3 | oc er 


EMYTL¢1)3 
EMITPAIRCJUNKs LOD)3 
EMITOCINX)3; — 
EMYTOCSTD)3 
END 
END ELSE 
BEGIN 
IF VT = INTYPE AND EXP 2 REALTYPE THEN EMITPAIRC 1s IOV)3 
EMITPAIRCEeADORs IF vT = INTYPE THEN ISD ELSE STO)3 — 
IF VT $ LOGTYPE THEN 
IF EXP 2 DOUBTYPE THEN EMITQCDEL) ELSE ELSE 
BEGIN 
IF EXP < MOUBTYPE THEN EMITL(O)3 
EMITPAIRCE«ADDR41*e STD)3 
ar OC eee 
END 
PEND. BSE noo es le oe alee cat 
IF E.CLASS = ARRAYIO THEN 
BEGIN 
Ie VT $ LOGTYPE THEN © 
BFGIN. 
IF VT = INTYPE ANDO EXP 2 REALTYPE THEN EMITPAIRC Ls TOV)3 
IF EXP 2 DOUBTYPE THEN 
BEGIN 
EMI TOCXCH)3 
_ EMITOCDEL)s 
ENDS 
EMYTOCXCH)3 
_ EMITOCIF VT = INTYPE THEN ISD ELSE STO)3— 
ENO ELSE 
BEGIN 
IF EXP 2 DOUBTYPE THEN 
BEGIN 
EMITPAIRCJUNKs STD)3 
— EMTTOCXCH)3 
EMITOPDOCLITCJUNK)3 
EMYTOCXCH)3 
EMITPAIRCJUNKs STN)3 
EMrTo¢stoO)3s 
EMITL¢1)3 
EMITTPAIRCJUNKs LOD)3 


EMT TOTINK) 3 Deas ch wigadnds Geeks ow Leyeotes ee bere eur cess dy Se, ee eats ee 


EMITOCSTD)3 


g88888 | 


01450000 
01451000 
014352000 
01433000 
01454000 
01455000 
01456000 
01457000 
07458000 ° 
01459000 
01460000 
““OTasToo0 
01462000 
01463000 
61464000 
01465000 
01466000 
01467000 
01468000 
01469000 
/ 01470000 
01471000 
01472000 
01473000 | 
01474000 
01475000 


SE ETBUOO 


01477000 
01478000 
“OT479000 
01480000 
01481000 
~ 01482000 © 
01483000 
01484000 
07485000 © 
01486000 
01487000 
01488000 
01489000 
01490000 
01491000 
01492000 
01493000 
01494000 
01495000 
_...91496000. 
01497000 
01498000 
01499000 
~ 07500000 - 
01801000 
01502000 


» 


re ged ee eee Se aay oy sy es neg Gade, 


01504000 fT 


At et 


OYS03000 TY 


e@ & 


i ! : t A . ; ; ! 
i t : : i i ! | i 
‘ i ‘ : 5 
: i i 


of Pa 


EnwD 


END ELSE 
BEGIN 


EMITOCXCH)3 
EMITPAIRG JUNK» 
EMITOCSTD)3 
EMTTL(O)5 
EMITL C193 


STN)3 


EMITPAIRCJUNKs LOD)3 


EMITOCINX)3 
EMETOCSTO)S 


END 


END FLSE BEGIN XTA ¢ GETCIX41)3 FLAGC49) ENDS - 


ERRORTOG ¢ FRRORTOG OR BOOLEANCP)3 


END EMITS 


PROCEDURE EMITBCAsC)3 


BEGIN CnM 


TORES 


VALUE AsC3 REAL AS BOOLEAN C3 
MENT GENERATES LITC AND BRANCH FROM CURRENT AOR TO ADORESS Ay 


IF THE ROOLEAN C IS TRUE THEN THE BRANCH IS CONDITIONAL. 
TRUE IF THE BRANCH IS BACKWARDS3 


BOOLEAN B 


IF aOR 2 4086 THEN 
BEGIN ADR © ADR+13 SEGOVF END; 


IF A < 0 THEN 


BEGYN 


END 
BEGIN 


BEGIN 


END E 
BEGIN 


EGREF $ 


REAL SEG; 


IF BRANCHX>LBRANCH THEN FATAL(123) 3  }3=— 


BRANCHX ¢ BRANCHESCL AX¢BRANCHX)3 
BRANCHESCLAX) © #CADR+1)3 
EMITLINK(O)3— 

EMITOCIF C THEN BFC ELSE BFW)3 
EMITOCNOP)S 


ELSE 


SEG ¢ AsSEGNOS 

A © A.LINK3 

BEOREF ¢ ADR > A} 
IF Aef4682] #0 THEN 


IF SEG > O AND SEG # NSEG THEN 
EMT TOPOCLITCPRGDESCBLORC2> QO» 


ELSE 


pal seuiede. 


EMYTL¢ABSCCADR42).£36210] = A,£36#10]))3 


IF BEOREF THEN 


EMITOC IF C THEN GBC ELSE GBW) ELSE 


EMITO¢ IF C THEN GFC ELSE GFW)3 


LSE 


EMITLCABSCADR + 3 = ADDS 
IF BEOREF THEN 


“EMITOCIF C THEN BBC ELSE 88W) ELSE 


EMITOCIF C THEN BFC ELSE BFW)3 


SEG). 


START OF SEGMENT 


‘ee 


Ha, ee 


1 4 ee ee oe ee ee 


01505000 T 0072 
01506000 T 0079 
01507000 t 0072 
01508000 T 0073 
014509000 tT 0074 
01510000 fT 0078 
01511000 7 0076 | 
01512000 T 0076 
01513000 t 0077 
91514000 T 0076 
03515000 yy 06079 
01816000 tT 0079 
_.Q1817000 T 0079 
01518000 T 0082 
01519000 T 0083 
86 LONG, NEXT SEG. 
01520000 7 04558 
01321000 7 0458. 
01522000 r 0455 
01523000 7 0455 
01524000 T 0455 . 
nee ekeethekee 
01525000 T 0000 
91526000 T 0000 
01827060 7+ 0000 
01528000 7 0003 
01829000 7 0003 
014530000 7 0004 
013531000 7 0006 
_ 01532000 T 0007 
01533000 tT 06009 
01534000 T OOL0 
01534100 rt 0042 
01538000 fT 0013 
01536000 rT 0013 
01837000 7 0015 
01538000 7 0016 
01839000 T 0017 
01540000 rt 0018 
“01541606 7 600206 
01542000 tT 0020 
01543000 T 0022 
01544000 fT 
01845000 7 0028 
04546000 T_ 
01847000 7 0029 
01548000 tT 0034 
01349000 T 0034 
01550000 fT 0034 
01551000 ~ 0038 
01552000 7 0037 __ 
61553000 tT 0037 
01554000 f 0040 


1 
| 
1 
| 
| 


ENDS 
END3 


ENO EMITBS 


PROCEDURE EMITODESCLITCN)S VALUE N3 REAL N3 
BEGIN wy Ate sles gael ee 
IF Nef3782] = 1 THEN 
BEGIN 
IF ADR 2 4087 THEN 
BEGIN ADR © ADR#13 SEGOVF END3 
EMITOCXRT)3 
ENDS . 
BUMPADR3 
PACKCEDOCLCEDOCI Js (Ne 38NL 368388403) 2ADR, £C463219$3 
IF CODETOG THEN DEBUG CN)3 
END EMITOESCLIT3 


PROCEDURE EMITOPDCLITCN)3 
BEGIN 
IF Nef37%2)] = 1 THEN 
BEGIN 


VALUE NS REAL N3 


LE ADR SOP TREN he ec he ene eo 


BEGIN ADR « ADR413 SEGOVF ENDS 
_ _LEMYTOCXRT)S_ 
“ENDS 
BUMPADRS 


—PACKCEDOCLEDOCI J s(N©28NC36t38210])sADR,C46829)8 


IF COMDETOG THEN DEBUGCN)? 
END EMI TOPOCLIT3 


PROCEDURE EMITLABELDESC(N)S VALUE N23 ALPHA NBO TU 


BEGIN 


REAL TsB,CodD 3 
IF N ¢ LBLSHFT(XTA®N) = 0 OR N = BLANKS THEN. 
BEGIN FLAGC{35)3 GO TO XIT ENDI™ ee 
IF T © SEARCHCN) = 0 THEN 
Te ENTERCO & LABELIDETOCLASS N) ELSE 
Ip GETCT)«CLASS # LABELID THEN 
BFGIN FLAG(144)3 “$0 TO XIT ENDS 


IF XREF THEN ENTERXCNSOR8LABELIOCTOCLASSI)$ 


IF B #(CeGET(T+2)).BASE #0 THEN 


IF CD*GETCT))eSEGNOZO THEN C.BASE*B*PRGDESCBLDRC2202DeADOR DIV Ge 


_OeSEGNO) ELSE 


37 18 


01555000 T 


{ 


| 


0042 
01556000 T 0042 
01557000 ft 0042 
45 LONGs NEXT SEG 6 
01558000 T 0455 
01559000 T 0458 
01560000 7 0455 
01561000 7 04587 
01562000 T° 0457 
~ ULS63000 F Oasa 
01564000 rt 0460 
01565000 T 0464 
01566000 T 0464 
01567000 fT 0464 
01568000 Tt 0469 
01569000 7 O474% 
01570000 T 0474 
“01571000 +r O47 
01572000 T 0474 
01573000 7r 0475 
~ 01574000 ~ 0475" i - 
01875000 tT 0476 
03576000 Tt 0478 
“61577000 fT 0476 
01578000 Y 0479 
01579000 tT 0489 
~~ 64860000 y+ 0487 
01581000 fT 0489 
-OYSEa000'T OaR ee 
01583000 Tt 0492 
ss 09884000 F 0492 
START OF SEGMENT «tutttawee 88 - - 
01585000 Tt 0000 
01586000 T 0000 
-OTSB7O00 "O00" 
01588000 7 00058 
01588100 7 0007 
01866200 tT 0010 ~~ 
01588300 rt 0012 
01588400 T 0014 
- §]§89000 FT “OULF 
01889010 fr 0020 
01589020 Tf 0026 


BEGIN BUMPPRTS C,BASE*B*PRTS ENDS PUT(T4#20C)3 "01590000 y 0028 °°} 
EMITL(B)3 EMITOCMKS)3 01591000 rt 0036 
‘ , * @ * e ' ‘ ' a , a 


° a 


| 


j 


sy 


EMITMESCLIT(1536)3 % F+0 
EMITOPOCLIT¢1537)3 2 F+t 
EMITVCNEEDC™, LABEL", INTREUNID) )3 


xIT? 
ENO EMITLABELDESC3 


COMMENT TRACEBACKs OFLOWHANGERSs AND PRTSAVER ARE ~~ 
PROCEDURES USED TO AGCUMULATE FORMAT AND NAMELIST ARRAYS3 
PROCEDURE TRACEBACK(MsDEXsPRT)3 
BEGIN INTEGER YoJ3 REAL C3 


IF (€ce#GETCM+2)).BASE # 0 THEN 
BEGIN I # ADRS ADR + C,BASE} 
DO BEGIN J * GITCADR)S 
ADR + ADR = 43 
EMITLCDEX)3 
EMITPAIR(PRTsLOD)3 
END UNTIL ADR « J & O03 
ADR « 13 
ENO} 
INFOCM.TR»eMeIC},ADDR © PRIS PUTCM4+2s08DEXE TOBASE))3 
END TRACEBACK3 


PROCEDURE OFLOWHANGERStI3+ ~~: 
BEGIN INTEGER J3 LABEL XIT3 


VALUE ITS INTEGER THO 


FOR y ¢ 1 STEP 14 UNTIL MAXNBHANG DO 
IF FNNHANGEC J] = O THEN % MAKE AN ENTRY 
BEGIN FNNHANGE J} «© I5_ 

PUTCI+205)3 


Gn TO xXIT3 
END;. rtd Ae atta ye py am ee, Faction fA ts ai hate See tee 
XTA ¢ MAXNBHANGS &% IF WE REACH HERE WERE HURTIN 
FLAGC9OL)3 
OMIT Spee OP esha Seacecdhatte, aeRO eave eras elena ae : . 
END OFLQWHANGERS3 
iy PROCEDUR E “PRTISAVERCHISZ5ARYIT ene. VALUE 2 Mw, SZ | ic nT ae Lib bs ey lance $ Sanya fie" en, 4 SG awd an ‘ua 


INTEGER MpSZ3 ARRAY ARYLO]3 
BEGIN INTEGER 13 REAL INFAS 


LABEL SHOW>XITS 


IF CINFA*GETCM)) < 0 THEN. % PREVIOUSLY DEFINED 


“BEGIN XTA © GETCMSL)F 


FLAGC20)3 GO TO XxIT3 


MALUE MPDEX@PRT? INTEGER MeDEXePRTD 


s . 
015 00 003 
04885000 + 9030 
01594000 T 0039 
01595000 Tt 0040 
01596000 r 004, 

58 IS 47 LONG» NEXT Seg 
01397000 T 0499” 
01598000 tT 0492 
01599000 T 0492 


01600666 7 
START OF SEGMENT «xentttnwen 


01601000 T 0000 
01602000 7 0003 
01603000 7 0005 
01604000 fT 0007. 
01605000 T 0008 
01606000 t 0009 
01607000 t 0010 
01608000 tT oO012 
01609000 T 0012 
01610000 7 0012 — 
01611000 T 0019 

59 1S 22 LONG, NEXT SEG 
Sra sOOG ae keane 
01613000 tT 0492 
START OF SEGMENT seeeewaten 
01614000 T 0000 
01615000 7 0004 
cen 91616000 T0002 | 
01617000 T 0003 
01618000 7 0005 

91619000 7 0005. 
01620000 t 0008 
01621000 7 0008 

veer 91622000 T 0009 
01623000 t 0010 
60 18 13 LONG» NEXT Seg 


0492 
04992 


01625000 YT 
01626000 T 


“START OF SEGMENT «xattdntee — 


01626100 fT 0000 
01627000 t 0000 


01629000 tT 0004 


Cy 


6 
59 
6 

woes 2 
6 


eaten match fig se el ee aul he “FE O24000 7 -0492°> >>> SCS Stee ee eee eid Poe 


Sea eee0t tt O0lG ee 


——_— 


+ 
! 
| 
| 
! 


END} 

IF I « YNFA »ADOR #4 0 THEN % PRT ASSIGNED AT OFLOW TIME 

SHOW? 

BEGIN I ¢ PRGDESCBLOR¢1sTs0sNXAVIL © NXAVIL + 1)3 
WRITEDATACSZ#NXAVILSARY)3 
FNNHANG(GET(M*2),SIZE] © 03 

END ELSF % ADD THIS ARRAY TO HOLD 

BEGIN Te FNNPRT2O THEN BEGIN BUMPPRTS FNNPRT*PRTS ENDS 
Ie FNNINDEX + SZ > DUMPSIZE THEN % ARRAY WONT FIT 
Tle SZ > OUMPSIZE THEN % ARRAY WILL NEVER FIT 


BFGIN BUMPPRTJFNNHANGEGETCM42)9SIZEJ©O3 TRACEBACK(M,OsTePRTS)S 


GO TO SHOW 
END ELSE & OUMP OUT CURRENT HOLDINGS 
BEGIN FNNPRT ¢ PRGDESCBLORC1sFNNPRT»O+NXAVIL © NXAVIL + 193 
WRITEDATACFNNINDEXsNXAVIL »FNNHOLD ) 3 
_ FNNINDEX ¢ 03% BUMPPRT# FNNPRT «PRTS3 
ENDS 
FNNHANGCGETCM + 2),SIZE} ¢03 
TRACEBACK(MsFNNINDEXsFNNPRT)3 
MAVEWCARY sFNNHOLDCFNNINDEXI2SZ403616)252)3 
FNNINDEX « FNNINDEX + SZ3 
END$ 
PUTCM»*GETCM) )3 % ID NOW ASSIGNED 
XIT4 
END PRTSAVERS 


PROCEDURE SEGOVF3 


BEGIN 
REAL I» Ts As J» SADRe INFCe LABPRTS 


REAL SAVINS3 
FOR ty © 4 STEP 1 UNTIL MAXNBHANG DO 


IF J¢FNNHANGETI#0 THEN BEGIN BUMPPRTS TRACEBACKC Js FNNHANGECTIJ*O0sPRTS) END}. 


SEGOVFLAG ¢ TRUE 
BUMPPRT} 
IF PRTSef37!2]=1 THEN BEGIN 


PACKCEDOCCEDOCT I+ ¢TeL1aXRT (36836810) SADR, C46N2T)S 


IF CODETOG THEN DEBUGCT)% ADR*ADR+1 END 3 
PACKCEDOCCENOCI)» CTe2aPRTSC36238810))»5 ADR»C4682))5 
IF CoODETOG THEN DEBUGCT)3 
ADR «© ADR+13 


PACKCEDOCCEDOCT I» CT+1aBFW (36238310})» ADR,«(4682))3 Nearest Bese ae, 


IF CNOETOG THEN DEBUGC(T)3;— 
SADR ¢ ADR3 
T ¢ PRGDESCBLOR(2* PRTSs O» NXAVIL41)3— 


FOR r « © STEP 1 UNTIL SHX DO 
BEGIn T ¢ STACKHEADCII;3 
Peal 011 Se Se: ae ee 
BEGIN TF CA GETCTI).CLASS = LABELID THEN = =~ 
IF A > 0 THEN 
_ BEGIN soattiyis sts Naha oars Hea das 
AOR « A.ADOR: 
IF LABPRT ¢ CINFC*#GETCT+#2)),BASE = O THEN 


+ e a a Y e 4 “ 


» 


A0i ee 


01630000 7 0005 
°046351000 ¢ 0005 
01631100 tr 0007 
01632000 rT 0008 
01633000 fT OOf4 
01634000 ft 0012 
01635000 7 0015 
~OT636000 7 OOLS 
04637000 7 0024 
01638000 fT 0023 
a 016399000 7 0024 
01640000 7r 0033 
01641000 fT 0033 
~ O1842000-F OOTR 
01643000 ft 0037 
01644000 7 0038 
01645000 7 0044 
01646000 T 0044 
01647000 fT 0046 
01648000 fT 0048 
01649000 ft 0050 
01650000 tT 005, 
016851000 fT 00514 
01651100 7 0053 
01652000 T 0054 
“$7 LONGs NEXT SEG 
01653000 T 0490 
01654000 f O495° 
01655000 fT 0499 
START OF SEGMENT weakteawae 
601655100 tT 0006 ~~ 
01656000 7 0000 
01657000 rt 0004 
“OLT661000 
01662000 r 0013 
01662300 y 0016 
~ 01662500 fF 
01662700 fT 0023 
01663000 tT 0026 
01664000 T 
01665000 T 0033 
01666000 T 0034 
01667000 F 0039 ~~ 
01668000 7y 004; 
01669000 T 0042 
~~"01670000 7 60044 ~~ 
01671000 Tt 0046 
01672000 y 0047 
~~ 04673000 T 
01674000 T 0080 
01678000 ry 0054 
01676000 f 0085 
01677000 7 0053 


OWOg° 


OOYe ee 


“Shp 


. : i ‘ 
1 ‘i 
4 t : i : 
: é 


@ 


a? 


= ee, 


. BEGIN ae. .... 01678000 7 0057 
BUMPPRT3 LABPRT«+PRTS3 01679000 T 0057 
PUTCT+2s INFC & PRTSETOBASEI)3 01680000 T 0062 
ENDS. fete, ba ede eee  ...,,.01681000 7 0064 | 
WHILE ADR # 0 DO 01662000 TY 0064 
BEGIN J ¢ GITCADR)S ADR © AGR@13 01683000 r 0065 
SAVINS¢GITCADR42)0(36210)3 or oo 01683400 T  0067_ 
EMITOPDCLITCLABPRT)3 01684000 + 0070 
EMITOCSAVINS)3 01684100 7 0070 
_ ADR © Jd Saude ee ee ee de Ce cee cee, 01685000 7 0071 
ENDS 01686000 T 00792 
INFOCTeIRsTeIC],ADOR © 03 01687000 Tt 0072 
ENOF : Ge 2orhns cos . “ 04688000 7 0077 
T © AJLINK3 , 01689000 r 077 
END; 01690000 Tr 0078 
END3 . : a —  , 014691000 tT 0078 
FOR y ¢ O STEP 1 UNTIL LBRANCH OO 01692000 7 0084 
IF T © = BRANCHESCI}Y > O AND T < 4096 THEN 01693000 T 0080a 
BEGIN . . . . 91894000 T 00864 
ADR « T#43 01695000 7 0085 
SAVINS¢GITCADR42)0£36210)3 01695100 ¥ 0086 
BUMPPRTZ EMITOPDCLITCPRTS)3 01696000 T 008% 
EMITOCSAVINS)3 _ 01696100 Y 0093. 
BRANCHESCIJ © * CPRTS+44096)3 014697000 YT 009% 
END} beat oe ahd kes, aes oa, ete, Mate ety 2 : 09698000 T 0096, 
SEGMENTCCSADR#+4) DIV 4s,NSEGSFALSE,ED0C)3 01699000 T 0098 
SEGMENTSTART3 01700000 T 0104 
EMITQCNOP)S EMITOCNOPIS 4 tae, Ab: detiebetap Oi 91700000 T 01020 
SEGOVFLAG © FALSE3 01702000 ry 0103 , 
END SEGQVF3 014703000 T 0105 


62 1S 110 LONG» NEXT SEG 6 


PROCEDURE ARRAYDECCI)3 VALUE I3 REAL I3 01704000 T 0492 
BEGIN %® DECLARES ARRAYS WHOSE INFO INDEX JS I! 01705000 T 0492 
REAL PRTsLNKo Js | a4 ee eee tte ia ~ 01706000 ~ 0490 © 
START OF SEGMENT weawtdawnn 63 


LABEL XIT 3 | 01706010 T 0000 
BOOLEAN OWNIDS REAL x3 01706100 7 0000 
IF DEBUGTOG THEN FLAGROUTINEC™ ARRA*»*YDEC "“s, TRUE ) 3 01706110 tr 0000 
PRT © GETCI),ADORS Fe ee ee ee ae ns a 01707000 F 0002 
IF LNK « GETCI4#2),SIZE = 0 THEN GO TO XIT $ 01708000 T 0003 
IF COWNID © PRT < 1536 AND DATAPRT # 0) THEN 01708100 fT 0007 
BEGYN . . 01708200 7 0009 
EMTTOPOCLITCOATAPRT)$ EMITOCLNG)3 01708300 T 0009 
EMITB¢™1s TRUE)S X © LAXS 01708400 Tt 0014 
END: eer ee ane. ay ss a .  . .... 04708800 7 0013 
EMITOCMKS)3 01709000 T 0013 
EMITDESCLITCPRT)$ % STACK OR PRT ADDRESS 01710000 tT O0%4 
IF LNK $ 1023 THEN. ge Bi: oii Aaxeteteki dele Gaceat ake tetas domaanaden  OLPELO00 FT: -O0e 
BEGIN 01712000 r 00148 
IF OWNID THEN EMITLCO)3 % LOWER BOUND 01712100 T 0016 
EMITLOLNK)S = % ARRAY SIZE : 01713000 T 0017 — 
EMITL¢1)3 % ONE DIMENSION 01714000 + 0018 


END 01715000 tr 0019 


@ 
oe 
a ELSE 01716000 7 0019 
| BEGIN , = 01717000 T 0019 
| J ¢ CLNK # 255) DIV 2563 01718000 T 0023 
LNK t= 2563 ZINCLUDE ENTIRE ARRAY SIZE IN ESTIMATE 01719000 P 0024 
IF OWNIO THEN EMITL(O)3 % FIRST LOWER BOUND : : -OL7T9100 T° OOes - 
EMITL EJS % NUMBER OF ROWS (01720000 T 0027 
IF OWNID THEN EMITLCO)S % SECOND LOWER BOUND 01720100 fT 0027 
EMITL(256)3 % SIZE OF EACH ROW st 01721000 - 0029 — 
EMITL¢2)3 % TWO DIMENSIONS 01722000 tT 0030 
NE ad a ante sarah ae ats stars MME co nce ndoAe eteaiatr Gite Ee seta ain Acne ie  Sucudient eens 01723000 T 0030 
EMITL¢1)3 2 ONE ARRAY OG %SG000 T “OOTG” ee 
EMITLCIF OWNID THEN 2 ELSE 0)3 OWN OR LOCAL 01725000 fT 0034 
_ EMYTOPDCLIT(5)3 % CALL BLOCK 01726000 7 0033 
ARYSZ « ARYSZ + J + LNKS | - “= 04727000 TF  OOT4 
IF NOTCF2TOG OR OWNID) THEN 01728000 fT 0036 
BEGIN eters cat” cats sees Ga ep ales es es eens ws eae . 01729000 t 0037 
F2TQG « TRUE —— 804730000 FT «(OO38 le 
EMITL E193 01731000 tT 0040 
EMITPAIRCFPLUS2sSTD)3% Fe 2e TRUE rare ae 01732000 tT 0040 
ENDS 04733000 7 O04y 
IF ®WNID THEN FIXBCX)3 01733100 T O04, 
XIT3 . 01733105 T 0043 
IF DEBUGTOG THEN FLAGROUTINEC’ ARRA"s"YDEC “sFALSE) 3 01733200 T 0044 
ENO ARRAYDEC3 01734000 T 0046 


63 18 53 LONG, NEXT Sea 6 


REAL PROCEQNURE SEARCHCE)3 vaLUE E3 REAL E3 01735000 T 04892 
- BEGIN REAL T3 LABEL XIT# _ a 01736000 tT 0492 
Ore hwee atten bt a tee, bass eee : START DE SUQHENT “aedewewaa” (6a 
T ¢ STACKHEADCE MOD SHX}3 01737000 T 0000 
WHILE T # 0 DO ae 01738000 y 000; 
Ip INFOCCT#1)eIRe(T+1)eIC) = E THEN GO TO XIT eee OL7T9000 F 0003 0° 
ELSE T © INFOCT.IReTeICIeLINKS 01740000 7 0007 
XIT$ SEARCH « T3 ae _ i 047H1000 TF 0081 
END SEARCH3 04742000 T O012 
64 1S 16 LONG, NEXT SEG 6 


i . F 
i 1 ; 
; : i : ! i 


BEGIN REAL T3 LABEL XIT3 01744000 Tt O492 
START OF SEGMENT «keeweweaw 65 
Poe RCO RACSTACKHEAD UE WOU GHKNT oo ee RR gOU Fe DOU 
WHILe T # 0 00 01746000 7 0004 
Ir INFOCCT+i)- IRe(T+1).1C] = E THEN GO TO XIT 01747000 +t 0003 
EP SET © INFOLT. TRaTeTCV<LINKD a Ge tence ty 
XIT! GLOBALSEARCH « T3 01749000 rf O04%1% 
END GLORALSEARCH3 _ . 01750000 rT 0012 
_ - ; . . has oe wa tee gg PS LS CONG, NEXT SEG gu 
PROCEDURE PURGE INFOS 01751000 T 0492 
ow ry "6 * +s rf & ‘ Ae as . oe « 


e@ a 


ef 


BEGIN RrAL J3 


FLAGE13)3 

FOR J « O STEP 1 UNTIL SHX 00 STACKHEAD(JI « O03 
NEXTYNFO ©¢ 23 

NEXTCOM ¢ 03 

END3 


INTEGER PROCEDURE ENTERCWs, E)3 VALUE We ES ALPHA Ws ES 
BEGIN REAL J3 


IF GLOBALNEXTINFO $ NEXTINFO THEN PURGEINFOS 
WeLINK # STACKHEAD(Y * E MOD SHXI3 
STACKHEADEJ) ¢ ENTER © J © NEXTINFOS 
INFOCJeIRoJaIC) © WS 
INFOPCJ# +t) oIReveIC) © ES. 
INFOP (Jett sTRedelC] © 03 
NEXTTNFO ¢ NEXTINFO + 33 

END ENTERS 


INTEGER PROCEDURE GLOBALENTERCWs E23 VALUE We ES ALPHA We E3- 


BEGIN RFAL U3 


IF GLOBALNEXYINFO $ NEXTINFO THEN PURGEINFOS 7” 
WeLINK © GLOBALSTACKHEADLCY * E MOD GHX]3 
GLOBALSTACKHEADC J] + GLOBALENTER © J ¢ GLOBALNEXTINFOS 
INFOrJU,yReJ.IC] © WI : 
INFOrCJeuel ry TRedeIC) © ES 
INFOPC Je y+19,TRedeIC] © 03 
GLOBALNEXTINFO © GLOBALNEXTINFO = 33 | 

END GLORALENTER3 


PROCEDURE LABELBRANCH(Ks C3 VALUE Ks» C3 REAL K3 BOOLEAN C3 


BEGIN REAL TSsToloXF 


DEFINE LABL = K#3 


0492 


01752000 T 
START OF SEGMENT weweehnane 
01753000 t 0000 
01754000 T 0000 
01755000 tT 0005 
01756000 T 0006 
04757000 7 0007 _— 
66 IS 10 LONG, NEXT SEG 
01788000 t 0492 
01759000 7 0499 
START OF SEGMENT ##eeetuwes 
_ 01760000 Tr 0000 
01761000 rT 0004 
01762000 T 0004 
01763000 Tt 0007 — 
01764000 T 0010 
01765000 T 0044 
01766000 T 0018 
01767000 - 0019 
67 IS 22 LONG, NEXT SEG 


01768000 T O0agg 


01769000 


_ START OF SEGMENT 


— O17 75000" 


~~ O1776000 © 


68 IS | 


COMMENT LABELBRANCH GENERATES A "LITC «20% AND “BRANCH” FROM THE 


CURRENT ADDRESS TO LABEL kK. IF THE BOOLEAN C IS TRUE 
THE BRANCH IS CONDITIONAL. JF TRE LABEL HAS NOT BEEN ENCOUNTERED 
THEN THF APPROPRIATE LINKAGE IS MADES 
LABEL XIT3 
IF aOR 2 4086 THEN 
BEGIN ADR ¢ ADR*13 SEGOVF ENDS _ 
TF CaABL ¢ LBLSHFTCTXTA*LABL) $ 0 OR LABL = BLANKS THEN | 
BEGIN FLAGC135)3 GO TO XIT END; 


“OL7T70000 


01771000 
01772000 


01774000 
01775000 


01777000 


01778000 
01779000 


START OF SEGMENT. 


01780000 
01781000 


~ 01782000 


01783000 
01784000 


~ 01785000 — 


01786000 


01787000 


01788000" 


01789000 


T 0492 
senetheten 
7° 0000 

T 000% 

T 0004 

¥ 0007 ~ 
T O010 

T 0014 

T 00f4a" 

rT 0019 


22 LONG» NEXT SEG 


PC ae 


66 


67 


68 


S000 ee 


T 0499 

T 0492 7 
eeweehekee 
T 0000 
T0000 

T 

tT 0000 

T 0000 

T 

T 0000 

rt 0000 | 
y 60603 

Tt 0007 


“aobee 


i 
1 


i 
H 


| i 
! 
| ! 
| ] 
| 


oe 6a 


ae er eel PETES ERS LT 


Te IeCLASS # LABELID THEN BEGIN FLAGC144)3 GO TO XIT ENDS 
tp I > O THEN 
BEGIN EMITLINK(TS)3 
EMITOCIF C THEN BFC ELSE BFW)3 
— PUTCTsT&CADR@1)£TOADDRI D3 
EMITOCNOP)$ 
END ELSE 
IF I1.eSEGNO = NSEG THEN EMITBCTSs ed ELSE 
BEGIN IF TS#(X*GET(CT4+2)),BASE 2 0 THE 
XBASE ¢ TS ¢ eRabESCeLoRce6.0t ADORas C36810),1,SEGNO)3 
PUTCT429X)3 
EMITOPDCLITCTS)3 
EMITOCIF C THEN BFC ELSE BFW)3 
ENDS 
END ELSE 
BEGIN 
IF AOR < 0 THEN EMITOCNOP)3 
EMITLINK(O)3 
EMITOC IF C THEN BFC ELSE B8FW)3 
T ¢ ENTERCO & LABELIOCTOCLASS] & CADR#*1)CTOADDRI» LABL)3 
EMETOCNOP)$ 
End} 
IF XREF THEN ENTERXCLABLsORLABELIDETOCLASS))3_ 
XIT! 
END LABFLBRANCHS$ 


PROCENURE DATASET3 % SCANS CONSTANTS IN BLOCK DATA 


81789808 ¢ ashe 
01791100 7 O0%4 
01792000 fT 0017 
01793000 tr O0186 
01794000 tr 0019 
01795000 y 0021 
01798100 - 6024 
01796000 T 0025 
01799000 -r 0025 
04800000 7 0025 ~ 
01801000 Tf 0032 
01802000 tT 0037 
Oie03000 F 0038° 
01804000 T 0039 
01805000 YF 0044 
01805000 1 0084 _ 
01807000 7 0044 
01808000 T 0042 
01809000 + 0044 
01810000 7 0045 
01811000 T 0047 
1811000 T0087 
01812000 Tt 0052 
01812100 7 0052 
01813000 7 OOSG = 


ea ee 


01815000 TT 0492 


01814000 T 0055 
58 LONG, NEXT SEG 6 


 BEGYN ey eere 01816000 t 0492 
REAL LSTsCURsLTYP»CTYPs,SI2,RPTJ : SERTvOUO-y “Oage eee 
START OF SEGMENT waeewtenne 70 
REAL cuDds oy 01818000 Tr 0000 
“BOOLEAN SGNS ~OL819000 FT 0000 ~— ~~ . 
01820000 r 0000 
sees re ie et ee Sela a tec Ati P, eh WaieR byte oie Sia NG Aa oa cians Rearend Oe OO Oe OO ee eens 
DEFINE TYP ® GLOBALNEXT#, 01822000 t 0000 tgftemeiOl- 
TYPC = 1833331983 01823000 fT 9000 
. LABEL XIT*ERROR + DPPsSPPACPPsCOMMeS 3 01824000 tr 0000 
IF DEBUGTOG THEN FLAGROUTINEC* DATA™%s *SET eSTRUE eee eee eee ""BL825000 T OOOQG 0 rr 
DATATOG « TRUES FILETOG ¢ TRUE} 01826000 fT 0002 
SCANS Lees id reise * oe vette Witt titi seu 94827000 T 0004 


UStS 6 is Cte e77F 
St IF TYP ® PLUS OR (SGN ¢ TYP = MINUS ) THEN SCANS 
so TYP NUM THEN | 
BEGIN 
IF NUMTYPE @ STRINGTYPE AND STRINGSIZE > 1 THEN 
BEGIN | aes a 
IF LTYP ¢ 77 THEN” 
BEGIN % NOT FIRST ENTRY@PUSH DOWN PRIOR NUMBER 
TF LSTS42 > LSTMAX THEN 
EEN PLACCL 27) GO TO ERROR ENDS 
LSTTCLSTS¢LSTS41] © RPT&LTYPCTYPCI3 


‘ Cd = 2 & * 
e e * y « . 


-O1828000 7000S 


Oe31000 FOOL Betas ares 
01832000 fT 0014 
01833000 tT 0013 
01834000 7 6613 — 


01829000 f 0006 
01830000 - 0010 


01835000 7 0014 
01836000 F 0018 
O1837000 FOOLS 
01838000 r 0020 


| 
| 


. 
» 


— 
eo 


ee 


iad 


LSTTCLSTS¢LSTS41] + LST3 
LTYP © 773 


ENDS 


IF LSTS + STRINGSIZE > LSTMAX THEN 
BEGIN FLAGC127)3 GO TO ERROR ENDS 
LSTTLLSTS#LSTS41)] ¢ STRINGSIZE & STRINGTYPECTYPC) 
@ S1Z¢3%3331515 
MOVEWCSTRINGARRAYsLSTTCLSTSeLSTS+1 1» 
STRINGSIZE.[3626)*STRINGSIZE)S. 
LSTS ¢ LSTS # STRINGSIZE = 13 
SCAN 
60 TO COMMS 
ENDS 
% GOT NUMBER 
IF NUMTYPE 3 STRINGTYPE THEN 
BEGIN 
FNEXT « STRINGARRAYCOI3 
NUMTYPE « INTYPES 
IF SIZ = 0 THEN SIZ ¢ 13 


END} 
CUR © IF SGN THEN *FNEXT ELSE FNEXT3 
CTYP « NUMTYPE? CUD « DBLOW; 
SCAN3 
IF TYP = COMMA OR TYP = SLASH THEN 
BEGIN 
IF S12 = O THEN SIZ « 13 
IF CTYP = DOUBTYPE THEN 
BEGIN 
DPP: IF LTYP # 77 THEN 
REGIN 
IF LSTS+2 > LSTMAX THEN 
BEGIN FLAGC127)3 GO TO ERROR END3 
LSTTCLSTSeLSTS4+1] «© RPTALTYPLTYPCI3 
LSTTCLSTS*LSTS+1) © LST3 
LTYP ¢ 773 
sini gw ee ee Swe! see. 
IF LSTS#3 > LSTMAX THEN BEGIN FLAGC(127)3 GO TO ERROR ENDS 
LSTTELSTS*LSTS4#13 « SIZEDOUBTIRECTYE CM 
LSTTCLSTSeLSTS41) « CURS 
LSTTCLSTS « LSTS + 1] + CUDS 
60 TO COMM3 
NDR mene ei = 
% SINGLE PRECISION 
SPP: 
Te CTV S77 THEN 
BEGIN 
GST © CURS 2 : 
LTYP «© CTYPS 
RPT © SIZ3 
cee vee GO TO COMMS 
ENDS 


IF LTYP = CTYP THEN 
IF REAL CBOOLEANCCUR) EQV BOOLEANCLST)) = REALCNOT FALSE) THEN _ 


BEGIN 
RPT ¢ RPT + SIZ3 


01839000 7 9022. = 
01840000 tT 0025 
01841000 T 0025 
01841100 T 0025 ; x 
01842000 T 0025 
01843000 7 0027 
01844000 T 0028 ; 
01844100 T 0034 
01845000 tT 0032 
01846000 7T 0034 _ oe 
61846100 + 0036 
01847000 1 0037 
01648000 7 0038 
01849000 T 0038 
01850000 fT 0038 
01851000 7 0038 
01851100 T 0039 
01851200 T 0040 
01851300 T 0044 
01851400 T 0044 
01851500 T 0043 
01852000 T 0043 
01853000 yr 0046 
01854000 T 0047 
01855000 7 0047 
01856000 rT 0048 
01857000 tT 0050 
01857100 7. 0050 
01858000 y 0082 
01859000 T 0053 
01860000 ft 0053 
061861000 Tf 0084 
01862000 T 0058 
01863000 7 0056 
01664000 T 0058 
01865000 tT 0064 
01866000 7 0063 
“OLEE7TO00 FT “0084 ; 
01868000 tT 0064 
01869000 T 0067 
01870000 tT 0069 
01871000 T 0072 
01872000 T 0074 
01873600 T 0074 7 
01874000 tT 0074 
01875000 T 0074 
 OL875000 Ff COTS” a 
01877000 Tt 0075 
91878000 T 0076 ; : 
01879000 T 0077 
01880000 T 0077 
01881000 y OO7AS 
01882000 7 0079 
01883000 T 0079 
01883100 FT 0079 
01884000 T 0084 
01885000 T 0082 


1 1 : 
t : : 
' : 


4a 


«GO TO coMmMs 
END3 
IF LSTS+2 > LSTMAX THEN BEGIN FLAGC(127)3 GO TO ERROR END3 
LSTTCLSTS*¢LSTS41] « RPT&LTYPCTYPC)3 
LSTTCLSTS#LSTS4+1) « LST3 
RPT ¢ SIZ3 
LST © CURS LTYP «© CTYPS | 
GO TO COMMS 
ENDS 
z TYP # COMMA © CHECK FOR * 
IF TYP # STAR THEN BEGIN FLAG(425)3 GO TO ERROR ENDS 
IF @eTYP # INTYPE THEN BEGIN FLAGC113)3 GO TO ERROR ENDS 
If SIZ # 0 OR SIZ © CUR $ ©O THEN 
BEGIN FLAG(64)3 GO TO ERROR END3 
SCAN3 GO TO S3 
ENDS at Sane —— . 
% TYP # NUM AT LABEL S ~ 
IF SIZ = 0 THEN SIZ ¢ 13 
IF NAME = "T "OR NAME = "F " THEN 
BEGIN , 
CUR «¢ REALCNAME = "T "3 
CTYR «© LOGTYPE3 
SCANS GO TO SPP3 
END3 
IF TYP # LPAREN THEN BEGIN FLAG(64)3 GO TO ERROR END} 


CPP: % COMPLEX 
IF LTYP * 77 THEN 
BEGIN © 
IF LSTS¢2 > LSTMAX THEN 
BEGIN FLAG(127)3 GO TO ERROR END3 
LSTTCLSTSe¢LSTS4+1) © RPTALTYPCTYPCIT3 | 
LSTTEILSTS¢LSTS411] © LST3 
TYP © 773 
END} 

SCAN3 

IF TYP = PLUS OR (CSGNeTYPSMINUS) THEN SCAN} 

IF TYP # NUM OR NUMTYPE > REALTYPE THEN 

BEGIN FLAG(64)3 GO TO ERROR ENDS 

IF LSTS+#2 > LSTMAX THEN BEGIN FLAGC(127)3 GO TO ERROR ENDS 

LSTTCLSTSe*LSTSe1] © SIZ&COMPTYPELTYPCI]3 

LSTTCLSTS*LSTS41] ¢ IF SGN THEN #FNEXT ELSE FNEXT3 

SCANS 

IF TYP # COMMA THEN BEGIN FLAGC114)5 GO TO ERROR END; 

SCAN3 

IF TYP = PLUS OR (SGN ¢ TYP = MINUS) THEN SCAN} 

IF TYP # NUM OR NUMTYPE > REALTYPE THEN © 

BEGIN FLAGC64)3 GO TO ERROR END} 


LSTTCLSTS¢LSTS4+1 )eyF SGN THEN «=  FNEXT ELSE FNEXT 3) eer eer ene 


SCAN3 
IF TYP # RPAREN THEN BEGIN FLAGC108)3 GO TO ERROR END3 
. SCANS 
COMM! 
$1Z ¢ 03 
IF TYP & COMMA THEN BEGIN SCAN} GO TO S3 ENDS 
IF TYP = SLASH THEN GO TO xIT3 as ee 
FLAG(126)3 


01886000 


01887000 


01888000 
01889000 
01890000 
01891000 
01892000 
01893000 
01894000 
01895000 


01896000 


01897000 
01898000 


01899006 — 


01900000 
01912000 


01913000 


01913050 
01913100 
01913200 
01913300 
01913400 
01913500 
049143600 
01914000 


01915000 


01916000 
01917000 


 OL9TEOOD | 


01919000 
01920000 


01921000 


01922000 
01923000 
01924000 
01925000 
01926000 
01927000 
01928000 
01929000 
01930000 
01931000 
01932000 


Of9353000 


01934000 
01933000 


‘O1936000— 


01937000 
01938000 


~ 01939000 | 


01940000 
01941000 


~ 01942000 


01942100 
01943000 


01944000" 


01945000 


a at st st 9 ti 9 ot 9 st at st st te 


aa 


bd 


ae 
ad ‘ * . 8 1 “ « 


ERRORS 
LSTS # 03 


WHILE TYP # COMMA AND TYP # SLASH AND TYP # SEMI DO SCAN} 
‘IF TYP = COMMA THEN GO TO COMM} 


<-> 
i 


XIT: 
IF LTYP # 77 THEN 
TF LSTS#2>LSTMAX THEN BEGIN FLAGCI27)3 LSTS¢0 ENDS 
LSTTCLSTSeLSTS41) © RPT&LTYPCTYPC)3 
—  ESTTELSTSeLSTS41) ¢ LST3 . 
ais sect canaheea ise nep ba teepaceindi ad paneseneessis A ate 
IF LSTS+1 > LSTMAX THEN BEGIN FLAGC127)3 LSTS + O ENDS 
LSTTELSTS#LSTS4+1}) #03 
IF DFBUGTOG THEN FLASROUTINEC™ OATA">™SET “sFALSE) FT 
DATATOG « FALSE3 FILETOG «+ FALSE3 
END DATASET3 


1 


70 18 


ALPHA PROCEQURE CHECKDD3 
BEGIN ALPHA Xs» TS INTEGER N3 


STREAM PROCEDURE CKDOCAs ID, LAB)3 
BEGIN 
SI ¢ A} SI * SI*43 DI + LABS DI © DI423 
SCIF SC 2 "oO" THEN DS « CHR ELSE JUMP OUT)3 
DI © IDS DI ¢ DOI+a3 
6CIF SC = ALPHA THEN DS © CHR ELSE JUMP OUT); 
END cKNo3 


IF CXTA*HOLNID(C0))2.012:24) = “FILE” THEN FLOGC37) ELSE 
IF XTAeC12912) # "DO" THEN FLOGC17) ELSE 
sews Oe oe Seedy 540 ¥ alee wis 
X ¢ T © BLANKS3 
CKDOCHOLOIDLCOJ» xX» T)3 a 
IF X#BLANKS THEN FLOGC105)3 
Ip T ¢ LBLSHFTCT) < 0 OR T * BLANKS THEN FLOGC17) ELSE 
TeST « NEEOCTs LABELIONIS 
DMLABCDT) « T3 
le XREF THEN ENTERXCT»O&LABELIDECTOCLASS))3 
IF GETCTEST) < 0 THEN &%& TEST FOR PREV DEFINITION 
BEGIN 
XTA © GETCTEST41)3 
—FLAGO1$)3 
OT © pT=is 
EnND3 
Ip N ¢ SEARCH(X) = 0 THEN 7 ids soy Maciget es tact + og 
NeENTERCTIPECIF Tex,Ci2te)4"0O" THEN T ELSE 1235X) 3 
CHECKDG ¢ GETSPACE(N)3 
Ip XREF THEN ENTERXCXs1@GETCN) £1531589))3 
Ip (XeGETON)) «SUBCLASS > REALTYPE OR X.CLASS # VARID THEN ~~ ~~ 
BEGIN XTA © GETCN+1)3 FLAGC84) ENDS 


i : : 7 i : : a 
i : : ! : ! ; ; 


Ofgem 


2a 


71 


SOOO Bs rset arsed comas 


C0 aa ee eee 


01946000 016 
Otearo00 F OLeF 
01948000 T 0167 
01949000 Tf 0172 

“01950060 TF 6173 
01951000 T 0174 
01952000 fF O174 

“OLIS3I000 Ff O175” 
01954000 T 0178 
01955000 T 0164 

' 0619560600 7 0183 ~ 
01957000 u 0163 
01958000 r 0186 

“01959000 F 
01960000 fr O194 
01961000 7 0493. 

199 LONGs NEXT SEG 
01962000 T 0492 
01963000 T 0499 
START OF SEGMENT sxaeetenten 
01964000 7 0000 — 
01965000 fr 0000 
01966000 Tt 0000 

01967000 7 0004 
01968000 T 0003 
01969000 tr 0003 

01970000 FT 
01971000 T 0006 

01971010 T O010 | 
01972000 7 0014 
01973000 T 0016 

91974000 7 0017 | 
01974500 7 0018 
01975000 fT 0020 

01976000 7 0025 
01977000 tr 0027 
01977100 Tf 0026 

01978000 T 0034 
01979000 T 0032 
01980000 rt 0033 

01981000 T 0035 
04982000 7 
01983000 ¥ 0037 
01984000 FT 0037— 
01985000 + 0038 
01987000 7 0044 
01987100 r 0048 

~ 01988000 T OO: 
01989000 +t 0052 


ya GETCFx1)eCLASS = UNKNOWN THEN PUTCFX1¢15 “eooene™)3 
E t 
END CHECKOO3 


ma 1S 


PROCEDURE FIXBCN)$ VALUE NS REAL N3 
BEGIN _ 
REAL Ts Us FROM} 


START OF SEGMENT 


LABEL XIT» BIGJ3 


IF DEBUGTOG THEN FLAGROUTINEC' FIM, "vB ",TRUE ) 3 
IF N 2 40000 THEN FROM «© N#10000 ELSE 
IF FROM ¢ = BRANCHESEN] > 4095 THEN 
BEGIN 
AnJUST3 
T + PRGDESCBLOR(2»s FROM,LINKs CADR+1)e036810)5 NSEG)3 
GQ TO XIT3 
END3 
T © ADRS ADR « FROM @ 13 


IF (T + 1).04632)] = O THEN GO TO BIGJ3 
IF ¢cU ¢ T = 2 » ADR) $ 1023 THEN EMITLC(U) ELSE 
BEGIN ANR « T3 ADJUST3 T © AOR$ ADR © FROM = 13. 
BIGJ! EMITLCCT41).036810) = CADR+2),£363101)3 
EMITOCIF BOOLEANCGITCFROM + 1)0f36811]) THEN GFW ELSE GFC)3 

ENOS 
ADR « T3. 

MrT? 

IF N < 10000 THEN BEGIN 


CERN GHE SENT 6. ARANGRIOR aa atk ee eon elie tation dene eae 


BRANCHX ¢ N3 
ENDS 
IF DEBUGTOG THEN FLAGROUTINEC® © 
END FIXR3 


FI" s "XB “sFALSE) 3 


te re 


PROCEDURE DATIME3 % PRODUCES HEADING LINE FOR LISTING. 
BEGIN 


INTFGER D 3 


START OF SEGMENT 


FORMAT T¢X90"B 5 700 FORTRAN COMPILATION Ms 


~~ START OF SEGMENT + 


"XVI.0" 
rA2eMa*sABs"DAYs “s2CA2e"/")sA2e ee Ala"sMsA2e™ He"/)3 
ae ea) ce 
WRITALISTCTs 7» 
“7150 
- gp TIME CSS COOTIMECS)) CLA28f 27 ,0,0C2482jesOeC36tlay, 7 
DecDeRTI OIV 216000) MOD 104D DIV 10x64, 
D*CO*RTI DIV 3600 MOD 60) MOD 104D DIV 100x640) 3 
IF DeLINE.TYPEZ10 OR O212 OR Ob={3 TREN eee aa 
BEGIN 
a | » , © y « 


01990000 7 0055 
01991000 F 0059 
01992000 tr 0059 
(63 LONGs NEXT SEG 
01993000 tT 0492 
01994000 T 0492 
~ 04995000 T 0499 
wee kee ES 
01996000 7 00006 
01996010 7, O0O00 ° ~~ 
01997000 TT 0002 
01998000 T 0004 
01999000 7 0009 
02000000 ft O010 
02001000 tT 0010 
02002000 t 0014 
02003000 7y 0016 
02004000 rt 0016 
02005000 fr 018 
02006000 fF 0020 
_ 02007000 7 0023 _ 
02008000 fT 0027 
02009000 7 0034 
02010000 7 0038 
~~ 02011000 TF 
020132000 tf 0035 
02013000 tT 0036 
ozora000 Tt O037” 
02015000 Tt 0038 
02016000 fT 0039 
02016010 - 0035 
02017000 T O041 
4&7 LONGs NEXT SEG 
02018000 7 0492 
02019000 7 0492 
03030000 7 0uda~ 
weathbhakink 
02021000 T 0000 
eeedbtneee 7 
02022000 fF 0000 
02622500 rT 0000 
30 LONGs NEXT SEG 
02024000 tT 0000 
02025000 P 0004 
“02026000 T 
02027000 fT 0008 
02028000 rt 0009 
“02029000 fT OOfG © 
02030000 fr 0019 


6 


72 


gga 2 ee 


73 


SS 


fof eee 


. LOCKCLINE)3 LINE,AREAS*OS LINE,AREASIZE*O 3 . 92031000 
| IF D412 THEN LINE.TYPE*#123 SPACECLINE»2) $ 02032000 
END 3 02033000 
FIRSTCALL*FALSE 3 02034000 0034 

END DATIME} 02039000 T 0036 
73 18 44 LONG, NEXT SEG 6 


0020 
0027 
0034 
0034 


a4--44 


PROCEDURE PRINTCARDS — as Hatley Stes geen ANB ook pela GRAS SeNt Hire eae pa Qny agg gait Nowe Memk, eee aie 


BEGIN 02041000 T 0492 
STREAM PROCEDURE MOVECPs Qs AdS VALUE As Q5 - testes bo. acs net acase teu, AMEE, 02042000 T 0492 


“GEKGP UR SEGNENT adaataaean oR OO es 


BEGIN 02043000 7r 9000 
SY Q3 DI « P3 ene: ay ne © — 02044000 T 0000. 
Os CHR} 02048000 ft 0000 
Of ONil+it3 SI « LOC a3 02046000 T 0000 
T 
T 


to? 


RS ea WE Or, 7 02047000 T 0004 
ENO MOVES 02048000 T OO01 


. 


STREAM PROCEDURE MOVEBACK(P)S — . 02049000 tT 0004 
BEGIN D1 + PS DS ¢ LIT "32" ENDS OO | "99050000 + COO1 


MOVE (CROC9]s+BUFL»s CADR41), C36810))5 02051000 T 0003 
tE FERSTCALC THEN DATIMET OT IS NE ie aaa a esa OS GENTE gee al ean ae 


MOVEBACKCCROL9I)3 02054000 Tt 0010 


END PRINTCARD3 02055000 ~ 0013 


02056000 T 0692 


BOOLEAN PROCEDURE | REND ACRROF FORWARD3 


mae tet £92 


OROCER INE PR EGPTION) FORMAROT 
BOOLEAN PROCEDURE LABELRS 02059000 7 0492 
BEGIN pL Ecels ‘ole auoesnddag le OOO O80 1... S892 


ss0Rioae F Gaee 
LABEL XrT» LOOP3 02062000 T 0499 
START OF SEGMENT wewtteunee 76 


BOOLEAN STREAM PROCEOURE CHECK(CD» LAB)S 02063000 T 0000 
BEGIN LABEL XIT3 LOCAL 113 02064000 rt 0000 


IF SFQERRORS THEN WRITAROWCI4*SERRORBUFF) § 0000 "02084010 T O0tg 00 
7S 1S 14 LONG, NEXT SEG 6 


-G5058000" T “Oa95 Gost Ganinaer een iaas Seer meee ratiatns Su ciial Aan ate ase, 


eI Sete ge see oh ‘ SIle¢ CDs. esa a ge ied NS x ea tla a RE i Eis oS heats imate ot a OOO OL 55) OO sen sater merase sratvhagsiss alate ionens 


IF Sc x" " THEN IF SC < "0" THEN 02066000 T 0000 
BEGIN DI * LABS DI © DI + 23 02067000 tT 0003 
a DS. #6 CHRI GO TOOMITS 92068000 7 0002 


Ae Si TS TE eae aca eS CLA Seine err aia eee geenr 9 reagan a TgNN ee 
DI #.0C T15 OS © 6 LIT * "3 DI © OI = 63 02870000 t 0003 


e 

e 

& 

e 

@ 

e 

@ 

e 

@ 

@ 

e Be IF UNPRINTED THEN WRITAROWC15*CRO) 3 02053000 tT 0007 
P ee ee 
e 

$ 

e 

e 

e 

e 

e 

e 


ae Se 


\ 
| 
| 
i 
| 


j 
{ 
1 


v 


S(CIF Sc 2 "0" THEN DS ¢ CHR ELSE SI ¢ SI+1)3 02071000 T 

OF +L ABS DY +DI + 23 ST ¢ LOC T13 “02072000 T 

S(Ip Sc # "Oo" THEN JUMP OUTS SI « Sy + 193 02073000 T 

SCIF SC 2 "oO" THEN OS + CHR ELSE JUMP QUT)3 02074000 Tt 

TALLY « 43 ~ 08075000 fT 

XIT! CHECK «© TALLY3 02076000 Tf 

END CHECK} 02077000 7 

BOOLEAN STREAM PROCEDURE BLANKCARD(CD)3 02077100 fT 

BEGIN LABEL XIT$ 02077200 T 
SI * CDS 02077300 T 

2(36¢ IF SC # " " THEN JUMP OUT 2 TO XIT ELSE SI « SI + 1933 02077400 T 

TALLY © 13 02077600 fT 

XIT# BLANKCARD © TALLY3 02077700 fT 

END BLANKCARD3 02077800 T 

LOOP: — 02078000 Tf 

LABL « BLANKS3 02079000 T 

IF LABELR ¢ NOT READACARD THEN GQ TO XIT3 02080000 1 

If NOT CHECKCCROCO]+LABL) THEN 02081000 Tr 

BEGIN IF LABL = "FILE ™ THEN FILEOPTION ELSE 02082000 T 

BrGIN IF LISTOG THEN PRINTCARDS 02083000 T 

IF (XTA ¢ LABL)+(£12861) #4 "C" THEN FLAGC135)3 02083100 Fr. 

ENDS 02083200 fT 

60 TO LOOPS ~ 02084000 fr 

ENDS 7 02085000 7 

IF ENDSEGTOG THEN IF BLANKCARDCCRD) THEN 02086000 T 

RFGIN IF LISTOG THEN PRINTCARDS GO TO LOOP END ELSE ~ (02086500 T 

BEGIN SEGMENTSTARTS "02087000 T 

Ip LISTOG THEN PRINTCARD3 02088000 T 

_ Tr LABL = BLANKS THEN GO TO XIT; 02089000 7 

END FLSE 02090000 fr 

BEGIN 02091000 T 
TF _LABL = BLANKS THEN Pe Ta ree 02092000 T 

BEGIN IF LISTOG TREN PRINTCARDS GO TO XIT ENDS 02093000 f 

IF ADR > O THEN ADJUSTS 02094000 fT 

IF LISTOG THEN PRINTCARDS — 02095000 1+ 

EiD} 08096000 

XIT! 02116000 T 

END LABELR3 02117000 7 

ONO eB Re Oi Dea Neigh nel has cle den On osaabde had - = 2 ~ 26-18" 55 LONGS 

PROCEOURE FILEOPTIONS 02118000 T 
BEGIN COMMENT “THIS PROCEDURE PROCESSES THE OPTIONAL FILE CONTROL CARD, ~~ ~~ O2TI9000°T~ 

THE WORD “"FILE*® APPEARS IN COL. 1 © 46 COLe 5 AND 6 ARE BLANK, 02120000 f 

#1 BELOW IS REQUIREOs OTHER ENTRIES MAY BE AS SPARSE AS DESIRED. 02121000 fT 
“YL, FILE “<NUM> = <MULTY*FICE 205 7 <FICE Ips 7 ee OST 22000 

| oR 02123000 fT 

> os i 4 * + 4 * ” e 


005a 


“NEXT SEG CBT 


se 


_S 


ee 


1 
i 


1 H 
| | 
a 
Da 
| | 
| 


FILE. <NUM> = <FI ThEWID?  ncun 
THE FOLLOWING "/" TS A DOCUMMENTARY OR, 


THE SEQUENCE OF RESERVED WORDS MUST BE MAINTAINED. 
2+ UNITePRINT/READER/PUNCH/DISK/TAPE7/TAPES/REMOTE CUNIT DESIGNATE), 
3, UNLABELED (FOR UNLABELED TAPES) —e ~~? 
4, ALPHA (FOR ALPHA RECORDING MODE) 
5. BCL CIGNORED>» FOR 3800 USE) 
6, FIXEN CIGNOREDs ‘FOR 3500 USE) 
7, SAVE = <NUM> (SAVE FACTOR IN DAYS) 
6. LOck = (LOCK FILE AT EQ) 
9. RANDOM/SERIAL/UPDATE 
10, AREA = <NUM> (DISK RECORDS/ROW) 
14. BLOCKING # <NUM> — CRECORD PER BLOCK) — | 
12. RECARD = <NUM> ~CRECORD SIZE) 
13. BUFFER s <NUM> (# OF BUFFERS) 
14, WORKAREA  CIGNORED, FOR 3500). } 
ALPHA P,KEEP3 BOOLEAN TOGsCarTS3 LABEL KITS” 


COMMENT INXFIL = INFCeADINFOs MULTI FILE ID = FILEINFOLLsINXFIL I» 


PO) aT (os eR cae ean aoe 


FILE ID = FILEINFOC2,INXFIL]» OLSK RECORDS = FILEINFOC3+INXFIL]—> 


FILEINFOCOsINXFIL] FROM RIGHT TO LEFT IS3 


INTEGER % NAME USE . BITS 
BUFF» % # BUFFERS 6 
RECORD» % RECORD SIZE 12 
BLOCK» —&% Block SIZE an «4 
SAVER» % SAVE FACTOR 12 
SPIN» X REW & LOCK ® EOJ 2 
ALPHS = «-& ~=RECORDING MODE =————tw 1 


PROCEDURE FETCH3 
BEGIN SCAN3 XTA ¢ SYMBOL3 
Ip NEXT=COMMA OR NEXT#MYNUS THEN 
BEGIN SCAN} XTA © SYMBOL3 
IF NEXT # ID THEN FLOGC37)3 
END3 
END FETCH3 


INTEGER STREAM PROCEDURE MAKEINTCXTA)S 

BEGIN LABEL LOOPS LOCAL TS 

Ste XTas SI # SI + 23 

Loop: +F Sc 2 "0" THEN wie sole ene ae spray eae acess 2 Ria a aes Meat 
BEGIN TALLY * TALLY + 13 SI © SI + 13 GO TO LOOP ENDS 

T * TALLYS SI ¢ XTAS SI + St + 23 DI + LOC MAKEINTS ODS « T OCTS 

END MAKEINTS. 


INTEGER PROCEQURE REPLACEMENTS 

BEGIN. 6. mimes oe Biel ahaha wend 

FETCH) IF NEXT = EQUAL THEN 

BEGIN FETCH) YF XTAeC12263 $ 11 THEN BEGIN REPLACEMENT © MAKEINTCXTAD3 
FETCH END ELSE FLOGC37)3 | 


END ELSE FLOG(37)3 
END REPLACEMENT? 


Sas OSS ae 


Gage eer bi cae Baa 


02124000 7. 0492 
02125000 T 0492 
02126000 rT 0492 
02127000 T 0492 
02128000 tT 0490 © 
02129000 f 0492 

_ 02130000 Tt 0492 
02131000 7 0499 
02132000 T 04902 

- 02133000 Tt 0492 

~ 02134000 7 
02135000 T 0492 

.02136000 TF 0492 
02137000 TF 
02138000 Tt 0492 

02139000 y 0492 
02140000 +r 0492 

START OF SEGMENT wenuttwanne 

02141000 7 0000. 
02142000 Tf 0000 
02143000 tr 0000 
02144000 Tt 0000_ 
02145000 tT 0000 
02146000 r 0000 

02147000 T 0000 | 
02148000 T 0000 
02149000 fF 0000 
02150000 t 0000 
02151000 7 0000 
02152000 Tt 90000 
02153000 Y 0004 

02154000 Tf 0003 ~~ 
02155000 7 0004 
02156000 Y 0006 
02157000 rf 0006 
02158000 T 0007 
02159000 tT 0007 
02160000 T 0007 

.. 92161000 T 0007 
02162000 7y 0008 
02163000 fT Q009 

02164000 7  O014 
02168000 fT O01e 

- oso 2166000 T 0012 
02167000 tT 0012 
02168000 7 0014 
02169000 Ff 0019 
02170000 r 0020 
02171000 Tt 0022 


77 


H 


! 


i 


i 
i 


i 
| 
if 


INTEGER STREAM PROCEDURE SRI7(S)3 
BEGIN St + $3 DI * LOC SRI73 

Sy ¢ SI+ 23 OF ¢ OF + 13 
END SRI73 


OS + 7 CHRS 


COMMENT * »© * «© © START OF CODE * * # w& 3} 
IF DEBUGTOG THEN FLAGROUTINEC" FILEO"»"PTION “sTRUE ) 3 
ERRORTOG « FALSE3 
IF LISTOHG THEN PRINTCARD3 
XTA © MEILE Mp 
IF NSEG # 0 THEN FLAG(C60)3 
IF INXFYIL © INXFIL + 1 > MAXOPFILES THEN 
BEGIN FLAG(59)3 GO TO XIT END3 
BUMPPRT$ 
MAXFILES « MAXFILES + 13 . 
FILETOG « TRUES SCN ¢ 13 % START SCAN MAINTAINENCE 
FETCKS IF XxTA.C1236)] > 11 THEN BEGIN FLAG(37)3 GO TO XIT END3 
IF XTA.C1286] = O THEN BEGIN FLOGC(037)3 GO TO XIT END 3 
IF T ¢ GLOBALSEARCH(P © O8"."F128h2:63axXTAL18$12830)) # 0 THEN FLAGC20) 
ELSE REGIN Pt GLOBALENTER(C#O&PRTSLTOADDRIGFILEIDCTOCLASSIJ»P)3 
PUTCP+22GETCP4+2)8INXFILCTOADINFO))3 
IF XREF THEN ENTERXCXTA SIC TOCE D> {8FILEIOCTOCLASSIJ)3  ~ 
ENn3 
INFC © GETCP + 293 
FeETch3s IF WExT = EQUAL THEN FETCH ELSE 
BEGIN FLOG(37)3 GO TO xIT3s END3 
IF NEXT = SEMI THEN 
BEGIN FLAGC37)3 GO TO xIT END 
ELSE FILEINFOC2sINXFIL] © SRI7CACCUMC11)93 
FETCH} IF NEXT = SLASH THEN 


BEGIN FILEINFOCisINXFILI] © FILEINFOCQsINXFILI3 & MULTE FILE ID 


FETCH3 
IF NEXT = SEMI THEN BEGIN FLAG(C37)$ GO TO XIT# END 
ELSE FILEINFOC2*INXFIL) «© SRI7CACCUMEL))3 


FETCH 
ENDS eee 
IF XTA = "UNIT ™ THEN 
, BEGIN 
FETCH3 


IF NExT # EQUAL THEN FETCH ELSE FLOG(37)3 
INFCeLINK © KEEP © CIF TOG © XTA = "PRINT * 


| OR XTA = “PRINTE" THEN 18 ELSE 
IF CA ¢ TOG * XTA 2 "READ * 
OR XTA = "READER" THEN 2 ELSE 
IF CA « TOG & XTA = "PUNCH " THEN O ELSE 
IF TOG * XTA = "OISK © THEN 12 ELSE 
IF TOG + XTA = "TAPE * 


OR "TAP ~ THEN 
IF CA ¢TOGexXTAs "REMOTE™ THEN 19 ELSE © 
IF TOG © XTA = "TAPES " THEN 2 ELSE 


Pegler 


02172000 


02173000 
02174000 
02175000 


02176000 


02176010 © 


02176100 
02177000 


02178000 


02179000 
02180000 
02181000 
02182000 
02183000 
02184000 
02185000 
02185010 
02186000 
02187000 
02188000 


02168100 - 


02189000 
02190000 


02151000 


02192000 
02193000 


(02194000 © 


02195000 
02196000 


~ 02197000 


02198000 
02199000 


02200000 


02201000 
02202000 


— 02203000 > 


02204000 
02205000 
02206000 
02207000 
02208000 


‘02209000 


02210000 
02211000 


— 02212000 


peoe eae 


BOO 


“‘O218500" 


02215000 


4444 


Eek ee et st tt tt tt tt tt tt 


! A a i H 1 : 
! ‘: : } : 


x 


IF TOG THEN FETCH ELSE F 
NEND ELSe INFCeLINK*KEEPCIF 0¢ 
TSeKEEPm12 3 
IF XTAS"BACKUP™ THEN 
BEGIN 
FETCH; 
IF 7OGexTAs"DISK 
ELSF IF TOG*xXTA="TAPE 


La Sl 
2a 
wo 


) 9 
THEN 12 ELSE 2 3 


IF KEEP#O AND KEEP#18 THEN FLAGC37) 3 - 
" THEN KEEPelIF KEEPS0 THEN 22 ELSE 15 | 
" THEN KEEP¢IF KEEPsO THEN 20 ELSE 6 


ELSE BEGIN 
_ TOGeXTABMALTERN"S KEEPeIF KEEPSO THEN 25 ELSE 16 3 00. 
END 3 : a 
IF TOG THEN FETCHS INFCeLINK*KEEP 3 
END 3 


IF XTA = "UNLABE™ THEN % FOR UNLABELED TAPES 
BEGIN IF KEEP ® 2 THEN INFC eLINK © 93 FETCHES ENDS 


IF XTA = "ALPHA " THEN FETCH ELSE IF KEEP s 2 THEN ALPH © 13 & 


IF XTA = "BCL * THEN FETCH) * FOR 83500 
IF XTA = "FIXED " THEN FETCH % FOR 63500 
IF XTA = "SAVE " THEN SAVER « REPLACEMENTS | oo 
IF xTA & "LOCK ™ THEN BEGIN SPIN © 23 FETCH END3 & 
Ip TOG ¢ XTA = "RANDOM" THEN T & 10 ELSE 
Ip TOG ¢ XTA = "SERIAL" THEN T © 12 ELSE 
Ie TOG © XTA = "UPDATE" THEN T © 133 
IF TOG THEN 
BEGIN IF KEEP#l2 THEN INFCoLINK*T ELSE FLAGC37)3 FETCH END 3. 
IF XTAZ"AREA ” THEN 
BEGIN 
IF KEEP#12 THEN | 
TeRFPLACEMENTS 
IF xTAs"EU " THEN 
TF TeREPLACEMENTD19 THEN FLAG(37) 
ELSE TeEUNFeT4133% 
IF yTA=s"SPEED ™ THEN 
BEGIN 
FETCH; 
IF NEXT®EQUAL THEN 
BEGIN 
FETCH; 
IF XTAelC1L2°6)<SLOWV THEN 


FLAGCI7)F 


IF TeMAKEINTCXTAD>SLOWV THEN FLAGO37) 00 


ELSE 
ELSE IF XTAS"FAST " THEN T.SPOF *FASTV 
ELSE IF XTASUSLOW " THEN  TeSPOF*SLOWV 


“ELSE FLOGC37)3 
FETCH 
END 
ELSE Fretca7yy on 
END} 
IF XTAS"SENSIT" THEN 
BEGIN 
T.eSENSFt=13 


FEN aah he arts Sins Stash ete Pees seta alec aa Plan ween tan Sez etate: a Bis paca ON ote oe Rtas ee i aed 


END3 
FILFINFOC3,INXFILI&#T3 
ENDS | eee el 
IF XTA = "BLOCKI® THEN BLOCK ¢ REPLACEMENT & 1f28479133— 


RECORD « IF XTAs™"RECORD"™ THEN REPLACEMENT ELSE IF CA THEN 10 ELSE IF TS 


MODE 


REW & LOCK AT EQJ 


O MEANS EU NOT SPECIFIED }}}© 


_02230200 


02217000 
02217050 


02217100. 


02217150 
02217200 


92217250. 


02217275 
02217300 
02217350 


~ 02217400 


02217450 


_ 02247500 


02218000 
02219000 


. 02220000. 


02221000 
02222000 
02223000. 


02224000 
02225000 


_ 02226000 


02227000 
02228000 
02229000 


02230000 


02230010 


92230020 


02230030 
02230040 
02230045 


02230050 
02230060 


 02230070_ 
02230080 


02230090 
02230100 


~ 02230110— 


02230115 
02230120 


02230425 
02230130 
02230140 


~~ 02230150— 


02230160 
02230470 


02230190 


02230210 
02230220 
02230230 
02230240 
02230300 
02230400 


.. 92216000 1 


T 


poe ee nen ete ee 


~ 02231000° 


02232000 


1 
i 


i 


 -OS90L80 FO 


ee ee ee ee 


eee tne Res ay, F 


AND NOT CBOOLEAN(CBLOCK,£2!1])) THEN 10 & 122847811 ELSE 173 02232010 T 0264 
BUFF ¢ IF XTA ® “BUFFER” THEN REPLACEMENT ELSE 23 02233000 + 0265" 
IF XTA = “WORKAR"” THEN FETCHS % INGNOREDs FOR 3500 02234000 + 0268 
IF BUFF<1 OR BUFF>32 THEN BEGIN XTA*™BUFFER"S FLAGC152) END 3 02236000 fT 0270 
IF RECORD<1 THEN BEGIN XTA**RECORD"3 FLAGC15S2)END 3 02236010 Tt O274 
IF SAVER>999 THEN BEGIN XTAe"SAVE 3 FLAGC152) END 3 02236020 T 0276 
IF TeINECeLINKaio OR T2i2 OR T#i3 THEN ¥%% ARE IN DISK FILE 02237000 T 0279 

BEGIN 02237010 7 0283 

IF ROOLEANCRECORD,C2%1)) THEN BLOCK « 300 02237012 T 0283 

ELSE Onn aes a &2 t eign ce i 02237015 Lopeae 

IF BLOCK*+BLOCKXRECORD>1890 OR RECORD>1023 THEN 02237020 tT 0285 
BEGIN XTAe"BK/REC™s FLAG(152) END 02237021 T 0298 

END 02237030 Tt 0297 
ELSE IF BLOCK*BLOCKXRECORD>1023 OR RECORD>1023 THEN IF KEEP # 2 THEN © 022370400 Y O297 

BEGIN XTA#"BK/REC™3 FLAGCS58 ) END ELSE BEGIN RECORD¢2573 BLOCK*OEND3 02237050 ft 0308 
FILEINFQCOsINXFIL] © O&BUFFL4224226 RRECORD( 3083681 2I8BLOCK(18336812) 02238000 ft 0310 

BSAVEREOI3ZGL12ZIRSPINCAS46I2IRALPHE 324784 33 "09939000 y 0378, 

XIT: Ie NEXT # SEMI THEN 02240000 y 0318 
BEGIN FLOGC3724 OO SCAN UNTIL NEXT = SEMI3 ENDS | 02241000 7 0319 

FIL ETOG « FALSES % END SCAN MAINTAINENCE , "022462000 y 0322. 
PUTCP+2eINFC)3 02243000 y 0323 

IF DEBUGTOG THEN FLAGROUTINEC™ FILEQ"s"PTION "»sFALSE) 3 02243010 ft 0325 
END FILeFOPTYONs 02248000 t O327 


77 YS 334 LONGs NEXT SEG 6 


02245300 7 0492 
HY 


PROCEDURE DOLUPTS: 


REAL STREAM PROCEDURE SCANCBUFs»ID)# VALUE BUFS = 


START OF SEGMENT etseettawwe 


BEGIN LABEL LP»LAsLEsXITs 02245900 T 0000 
SI « BUF# DI «© Ips DS « 2 LIT "0"3 02246200 F 0000 
LPs YF SC = " © THEN BEGIN ST*Si4i13 GO TO LPs ENDS "08246500 F 0007” a ; 
yer, OY, 1F SC = "se" THEN BEGIN SI*#SI#i3 GO TO LPS END 02246800 T 0002 
910... xi AY) IF SC = "+" THEN BEGIN DSeCHRS GO TO XITs ENDS = 8 = = 0B BNG900 T 0004 oat eas 
aut 2, Pare 0 FSC = *** THEN BEGIN DS*CHR} GO TO KITS ENDS 02247000 Ff 0005 ~~ e 
se Hh) ott IF SC < "A" THEN BEGIN DI © 103 DS « 8 LIT *#0000001"3 02247100 Tt 0007 / VIO 
Go TO XITS 02247400 t 00160 ye me 
ENDS 02247700 T 0010 
had 
IF ScR"#" THEN GO TO LEs% THIS 1S > FAR "02247900 7 0011 - 
6¢IF SC = ALPHA THEN DS © CHR ELSE JUMP QUT)3 02248000 T 0012 
eee te - LAt IF SC = ALPHA THEN BEGIN SIeSI413 GO TO LA’ ENDS 02248300 T 0014 
er INES, ocenttoctee ar na, Ae i en ER senses os een SENSE SOOT : 
SCAN « SI3 02248900 tT 0018 
ciswtate tect Oe. of! ge RING CANE a2 Dy nyse eases ett tye gets) den Yoastp da luonlbhen slbntitne uaa ea has UA Anaieet utente ei Rares y OREE ROO ee LOAD 
REAL STREAM PROCEDURE GETVOIDCBUF»VOIDSEQsFR)J VALUE BUF SFR 02249500 t 0017 
ee ee es ee BEGIN LABEL LoL CoLOsLE,xITsS LOCAL TAS 02249800 t 0017 
‘Si t= BUFFS OLTaVOLOSEGS DSteaLrT” "3 OYiaVOTOSEGS ~~  oBaeOT00 F CNTs as 
Lt IF SC = " " THEN BEGIN S1*SI413 GO TO LS  END3 02250400 7 0020 
ee °» ; 7" ep fF 8 oy og e t Gs ; 


i 


TA + ST} 
1F sc = *%" THEN 


BEGIN 9CSIeSI+i13 


IF SC = """ THEN BEGIN SIl#SI+13 JUMP OUT TO LC3 END ~ 


ELSE TALLY «© TALLY + 193 


TALLYS*TALLY4+633 STteTAs SI%sSi+13 GO TO LE; 


ENDS ; 

YF Sc < "0" THEN GO TO LD; 

OStsBL ITO} 

BCSreaSi+i13 DIsepre1s TALLYSaTALLYeis 

Ip SC LSS "0" THEN JUMP OUT)3 

ion | SI « TA; 
Let TASMTALLYS OSteTa CHRS GETVOIDSsSI3 GO TO XITS~ 
Ln: GETVOID?sS73 

FRCODSt*BLITMO")3 
XIT 


END. GETVOIDS. 


REAL 


REAL 


ENG MKABS)” 


STREAM PROCEDURE SEQNUMCBUFsVLU)s VALUE BUF3 

BEGIN LABFL LeLlLAsLC3 LOCAL TA»sTB3 
SI « BUF3 

L: IF sC = " " THEN BEGIN Sle*SIe13 GO TO Ls ENDS 
IF SC = "s" THEN BEGIN SI*SIe13 GO To L3 END; 
TA « SZ3 
IF SC = "+" THEN 
BEGIN SleSyei3 


LAs IF Sc = " " THEN BEGIN SI¢SI413 GO TO LAJENDS 


TB © SY3 


TF SC < "0" THEN BEGIN Sfe+Ta} GO TO L¢s ENOS ~~~ 


DieTBSTAcOT3 
oe net bod pbs napus Ot ates xt 
aciIe Sc < "0" THEN JUMP OUT TO LC} 
TALLY@*TALLY413 Sre#Sre13)3 


LC: TB « TALLY3 SEQNUM « S73 


SI « TAS’ DI © VLUS OS ¢ TB OcT3 ~~ 
ENn SEQNUM3 


Se ae eas 
BEGIN SI « Ss SleSt+13 MKABS « S73 
DI ¢ S$ 9CDI © DI + 893 OS * LIT ic it ree 


STREAM PROCEDURE MOVEWCP2Q)3 VALUE Q3 


BEGIN SteP} DI ¢ QF DS*CHR} END FT 


tes ect a ee em eee ee annette calcwuaeeeintaee ni peeeca te cmeane seumatme te iy are mratunne wt esarsuanate auascieerere wnat ttmmes wisp yates ts weet eaten abe: 


REAL BUFs TI 
WTEGER. 


0d, BOMBA ; 


Kibhuawve, : 


a ry « @ 
@ 
me) 0 
asssoro0 + oat 
02451000 t 0022 @ 
02251300 Tt 0023 
02251600 T 0025 . 
02251900 7 0025  ) 
02252200 + 0026 
— 02252500 T 0026 ve 
02252600 ¢ 0027 e 
02252800 P 0028 
— 02282850 ¢ 0029" 7 
02252900 tT 0034 e 
02253100 T 0033 
02253400 + 0033 a 
02253700 T 0034 @ 
02254000 T 0036. - 
02254300 T 0036 
® 
(02254600 T 0038 e 
02254900 Tt 0038 
02255200 T 0038 ) 
02255500 Tt 0038 
02255800 tT 0040 7 
02256100 T 0042 @ 
02256400 7 0042 
02286700 7 060462 ~ 
02257000 7 0043 e 
02257300 Y 0045 
~ 02257600 7 004s _ ic 
02257900 fT 0047 @ 
02258200 T 0047 
02256500 + 0047 7. 
02258800 7 0049 eS) 
02259100 F 0049 
02259400 Tt 0050 
02259700 T 0054 @ 
® 
02260000 T “0084 : —— 
02260300 tT 0052 r 
92260600 7 0033 
02260900 T 0085 os 
@ 
02260925 7 0056 e 
-“GE9600S0-Y-OUSE ee 
e 
(1? @ 
02261200 T 0058 < 
0226(300 e 


0058 


BOOLEAN VAL» SAVELISTOG3 02261500 P 
LABFL LP» SET»RESET» ; 02241800 Pp 0058; 
FORMAT WARNCX182A6s" ILLEGAL CONSTRUCT ON DOLLAR CARD XXXX"sX39e 02262100 y 0058 & 


START OF SEGMENT saxtetatew 79 

02262400 T 00%—” ii topo 2 
15 LONG» NEXT SEG 78 

(02262700 Tt 0058 


"WARNING" ) 3 
79 «18 


DEFTNE GETID = BEGIN Ide * "3 BUF © SCANCBUFsID) ENDS 


BEGIN 


SAVELTSTOG t= LISTOG3 
MOVEWCCRDC9],BUFL)3 
BUF ¢ MKABS(CRBCO})) 
GETIDS 
IF 10 = "VOID ™ THEN 
BEGIN BUF ¢ GETVOIDCBUFs VOIDSEQs0)% VOIDTOG « TRUE 
END ELSE 
IF ID = "VOIDT " THEN 
BEGIN. BUF ©. -GETVOIDCBUFs. NVOIDTSEQ20)3 VOIDTTOG. «TRUE... 
END ELSE 


TAPETOG. C4711) © LASTMODE = 23 


02262775 ¢ 0059 
02262800 7 0060 


"0336300017 0062 


02263300 7 0064 
02263600 T 0066 


— 02263900 T 0067 


02264200 T OO74 
02264500 7 0072 


 02264B800..7...0075..  . 


02265100 ¢ 0079 
02263400 T 0080 
02265700 P 0082 


IF ID a “SET OR 10 = "4 " THEN 02267200 tT 0084 
SET! BEGIN GETIDs VALe TRUE END 02267500 T 0086 
ELSE 02267800 T 0090 
IF IO = “RESET * OR ID = "= THEN 02268100 T 0090 
RESET! BEGIN GETIO3 VAL « FALSE END 02268400 T 00958 
ELSE ae 02268700 T 0100 
BEGIN f 02269000 7 0100 
TSSMESTOG ¢« VALS TSSEDITOG « VaL3 CHECKTOG. ¢ VA 02269300 P 0104 
SINGLETOG*NOT VALS WHOLTOGeVAL) | 02269600 Pp 06109 
LISTOG*VAL3 CODETOG « DEBUGTOG «© VAL3 NEWTPTOG e VAL2 02269900 T 0113 
PRTOGeVALS ODOLISTeVAL3 LIBTAPE+VAL# SEGPTOGeVALS 02270200 p 0118 
LISTPTOG + VAL} FREEFTOG « XREF © VAL 3. “02270800 ¥ O25 
VAL © TRUE? 02270800 7 0129 
ENDS” 02271100 y 0129 
LP? IF ID > 0 THEN O2271400 O129 
BEGIN 02271700 fT O130 


IF 1D = "CARD — Pee apis pees aes 
BEGIN TAPETOG.C4781J*NOT VALS LASTMODE*2*"REALCVAL) ENO ELSE 


IF ID = "TRACE “ THEN 
BEGIN PRTQG¢+VAL3 LISTOGeVAL3 CODETOG#DEBUGTOG¢VAL}” 
END ELSE 

" THEN 


IF ID = "TAPE ™ THEN 


BEGIN TAPETOG.(4731] ¢ VAL LASTMODE © REALCVAL)+13 END ELSE —__ 


IF ID = *SET " OR . a + ”" THEN GO TO SET ELSE 02272900 7 O154 

IF IO = “RESET ™ OR a Ne “ THEN GO TO RESET ELSE 02273200 f 0157 

IF ID = “ONSTTE™ AND NOT REMFIXED THEN REMOTETOG © FACSE ELSE “O22795800 F O60 Ue 
IF ID = “REMOTE” AND NOT REMFIXED THEN REMOTETOG * VAL ELSE 02273800 T 0165 

IF ID = “FREEFO" THEN FREEFTOG ¢ VAL ELSE = = 02274100 T 0175 

IF ID = "SINGLE" OR ID = *SGL = “ THEN "022746000 T 01807 


JF 


BEGIN SINGLETOG « VAL3 LISTOG « TRUES END ELSE 


ID = “NEW " 


OR 1D ® “*NEWTAP™ THEN 


‘BEGIN LIBTAPE¢VAL3 NEWTPTOGeVALS NYAPTOG*TRUES 9 7 mee 


02272000 yr 0134 


022723500 ¥ “0132 


02272400 ~y 0137 
02272500 T 0137 
02272510 p 0139 
02272550 fT 0143 
02272560 -t 0145 


02274700 r 0183 
02275000 rT 0187 


IF 1D = ?NEW " THEN 02275120 c 0198 
righ EGE eh hinted Suet ac catee. Ate ghd cepa Senet ecalilt de pb fad cree saan noe Maa le te 02275140 ¢ 0199 
GETIO} 02275166 C0199 


IF ID # "TAPE 


" THEN 


02275180 ¢ 0202 


OUS27S{00 PP OL9S 


r Td .° »e a8 a e a @ 
‘@ ® 
_ G0 TO LPS | ss a ae Pus we a eee 02275200 ¢. 0203 : 

i ENDS 02275220 ¢ 0203 
eo: END ELSE 02275240 ¢ 0203 @ 
” IF 10 3 "LIST " THEN LISTOG + VAL ELSE ee 02275300 T 0203 : 
IF ID = "SEQXEQ" AND NOT SEGSWFIXED THEN SEGSW « VAL ELSE. 02275600 7 0212 
@ IF 10 =» "PRT “ THEN PRTOG © VAL ELSE ; 02275900 t 0218  ] 
ae IF ID = "DEBUGN" THEN bate eee Aa 02276200 tT 0223. ; 
BEGIN LISTOGeVALS CODETOGe*VaL$ PRTOG « VAL END ELSE 02276500 7 0225 
@ IF ID = "TIME " THEN TIMETOG ¢ VAL ELSE 02276800 T 0230 @ 
es IF ID = MERRMES" THEN TSSMESTOG * VAL ELSE 0 0 ww... 02277100 T 0238 . 
IF 10 = "TSSEDI" THEN TSSEDITOG ¢ VAL ELSE 02277400 Tf 0240 
@ IF 10 3 “LISTLI" THEN LISTLIBTOG + VAL ELSE 02277700 T 0248 @ 
. IF¢IO = “SEGMEN” OR ID * "SEG ) AND VAL THEN = = 02278000 t 0250. 
BEGIN ADReADR+13 SEGOVF3END ELSE “02278300 tT 0254 : 
‘@ IF 1D @ "PAGE “ AND VAL THEN WRITECLINECPAGE]) ELSE 02278600 t 0256 r) 
é. IF 10 # "VOID ™ THEN . _.. .. .. 02278900 7 0264 _ 
AMEGIN VOIDTOG «Vals. ere Sree re mmm t ned «-)-) 2-1-Wois ae anaes > 
e IF VAL THEN BUF * GETVOIDC(BUF»VOIDSEGs1)3_ 02279300 tT 0270 r) 
END ELSE iw Gotan Oe BGe Be Be nee ced (02279500 Tt 0273 
IF 10 2 "VOIDT * THEN | 02279800 T 0273 . 
e BEGIN VOIDTTOG ¢ VAL; 02280100 T 0275 ) 
IF VAL THEN BUF © GETVOIDCBUF » VOIDTSEQs1)3 02280300 tT 0276 
ENO ELSE . 7 02280400 tT 028; 
& IF ID =-"LIMIT " THEN 02280700 y 0281 , @ 
BEGIN LIMIT $= IF VAL THEN O ELSE 603 ee ee eee eee 02281000 7 0283 . 
BUF $= SEQNUMCBUF »LIMIT)3 02281300 T 0286 
®@ IF LIMIT LE@ ERRORCT THEN GO TO POSTWRAPUP3 02281600 7 0289  ) 
os oN SE a i sae ials ss edcttous da Seceave d cxudef meartiadann nlagiinatioa apbaune wibeeidBaaear 4 choua CLLOLIO0. Te O208. as 
‘IF 10-3 “XREF  * THEN 022828600 + 0292 
6 BEGIN 02282880 T 0295 @ 
‘ PXREF © TRUES XREF © VAG ete ces sus sums ee vesune - wey 92282900 7 0296 _ a 
END ELSE 02282950 T 0298 
@ IF 10 = "SEQ  " THEN 02283100 tT 0298 @ 
BEGIN SEQTOG + VAL3 _ 02283200 T 0304 
‘IF VAL THEN 02263300 T 0304 
@ BEGIN SEQBASE ¢ SEQINCR © 03 02283400 T 0304 @ 
BUR * SEQNUMCBUF*SEQBASE)S (0 02283700 7 0906— 7 
BUF « SEQNUM(BUFsSEQINCR)3 02284000 tT 0308 
] 0 IF SEQINCR ¢$ 0 THEN SEQINCR + 10003 02284600 Tt 0314 e 
Ls END ENO ELSE 02284900 7 0313 - 
Cae. Nr 1D = “LISTDO" THEN DOLIST ¢« VAL ELSE 02285200 T 0313 
@ a IF 10 = "HOL ” THEN HOLTOG ¢ VAL ELSE 02265500 T 0318 & 
IF ID a "CHECK " THEN CHECKTOG © vAL ELSE 02285800 7 0323 7 
IF ID = "NEWPAG" THEN SEGPTOG «+ VAL ELSE 02266100 p 
@ Eg ThTFFIRSTORL SHEN GETTER eee es 02286400 rd] 
BEGIN IF FIRSTCALL THEN DATIMES , . 02286700 Y Ne : 
IF UNPRINTED THEN BEGIN PRINTCARDS UNPRINTED*FALSE ENDS 02287000 p 0344 At 990 
e IF SINGLETOG THEN WRITECLINE* WARNS ID) 02287300 tT 0348 ye S 
ELSE WRITECRITE*WARNSIDIS 02287600 7 0351 | . 
END 02287900 7 0362 
ad : 02288200 T 0362 r 
GETIOs Ava Dh hee ae ol 2288500 T 0362 | es ic 
GO TO LPS 02288600 7 0365 
& END 02289100 T 0367 e 
Dc ea SOI A aca Sa ie aN evs arsg incr ess oils, ut ances wieiatisi on OP ORS AOOY..OSOT i cnieeds 
IF DOLIST OR LISTOG OR SAVELISTOG THEN 02289450 ¢ 0367 
@ IF UNPRINTED THEN PRINTCARDS 02289500 p 0369 @ 
@ e 


UNPRINTED « TRUES a 02289600 rT 0374 sil 
T —— — testy sare A 
END DOLNPTS 02289700 T 0374 


7a 18 377 LONG» NEXT SEG 


STREAM PROCEBURE NEWSEQ(A»B)3 VALUE BS 02317000 t 0492 
REG UN ee eee. Ge dh Atenas aha OME, cates Ry dagRecscnwpeneily aun 02318000 7 0492 
Porta ata vee ee a a a Pc 
END NEWSEQS 02320000 tT 0492 


BEGIN 02322000 T Q493 
SI + T3 DI « C3 sess a . | one 02323000 T 0493 
IF 8 SC < OC THEN TALLY © 4 ELSE 02324000 rt 06493 
BEGIN 02325000 T 0494 
SI * SI = 83 DI + pI = 83 02326000 ft 0494 
IF 8 SC =DC THEN TALLY ¢ 2 02327000 rT 0495 
ELSE TALLY «© 33 02328000 tT 0495 
END; ee ene a 02329000 rt 0496 
SEQCHK « TALLY3 —s— 02330000 T 0496 
END SEQCHK3 02331000 T 0496 
BOOLEAN PROCEDURE READACARDS ~~ sce Ss dabera tented SEE, oA Me ee ee 
BEGIN —ooe 02333000 7 0497 
DEFINE FLAGICFLAGI1) = BEGIN FLAGCFLAGI1)3 GO TO EGASEND ae 02333050 T 0497 
ar START OF SEGMENT aeaeieaewn 80° 
REAL STREAM PROCEDURE SCANINCCBUF sID*RESULT»NoM)3 02333100 T 0000 
VALUE BUF>MeNS 00 fs Gals cw recast tea, WAP wih eet hae ae 02333120 T 0000 
BEGIN 02333140 7 0000 
 ] LOCAL TAS 02333160 ft 0000 
LABEL LPSLORKTT Eo. os cucepgee ce Ghee Geeeiows Hb. Gilbane DUS bods Sines Hatlate Ben, ath cas, 022. OPIATES. 7. 0000. . 
DI ts RESULT3 DI t= DOI +73 02333200 T 0000 
@ SI t= BUF? ; 02333210 T 0000 
LP: IF SC = " " THEN BEGIN SI s= $1 + 13 GO TO LP? ENDS 02333220 T 0000 
IF SC = ALPRA THEN ELSE BEGIN OSialLIT "13 DITeIDy DSteeLIT"O"y ~~~ UBITIZID PP OOOD 
e 1 sh 0S *™ CHR} OS t= SLIT” "360 TO XITS ENDS 02333260 T 0004 
ya IF SC LSS "O" THEN NStaLIT "2" ELSE DStsLit 3") 02333270 c¢ 0006 
i o N COT@sID3 OStaB LY 90 °° Uwy pYrepre7y” we men TS TTIVIO POOF 
) S 7CIF SCALPHA THEN OStacHR ELSE JUMP OUT 2 TO XIT)3 © 02333300 tT 0010 
JUMP OUT TO XIT)3 02333320 T 0012 
BOT OIF SO ESS FO" THEN SUMP OUT 2 TOG Rn ene i SSROOR OOO TES 
e IF Sc GTR *9" THEN JUMP OUT 2 TO L@3 02333370 ¢ 0046 
SIs=S1413 TALLYt#TALLY41) 3 02333380 P 0017 
La: TA ts TALLYS : —— i a “039333400 7 O00te” 
e SI t* SI ™ TAS 02333420 T O019 
2 eae) ee 02333440 T 0019 
DS ie TAL OCTs So ne rte ae eee enrni es een EE OSE 
@ XIT# SCANINC %= S23 02333500 7 0020 
@ iy '» a ee | * ., 8 gy 2 pee 


1 


INTEGER STREAM PROCEDURE SFOQCHK( T2622 cette AUIS OOO Pf Obes 


{ 


» 
» 
. 
e 


t 
1 
4 


{ i | i 
{ } i 
| H 
t t 
{ | t 
i 1 
1 
L 


END S 


CANINC3 


REAL STREAM PROCEDURE MKABS(S)3 


BEGYN 


SI t= S83 SI tz 


STREAM PROCEDURE MOVECPs 


BEGIN ST 
DI « P 
END MOVE: 


STREAM PROCEDURE MOVEC(C5B)3 


+ PJ OF © Q3 OS 
3 oS « LIT "783 


St + 13 MKABS 


Q)3 VALUE @3 
¢ CHRS 


~ VALUE B3 


BEGIN Sye#Bs DleCs OS*CHRS ENDS 


BOOLEAN STREAM PROCEDURE GETCOL1CBUF)3 © 


BEGIN 


END; 


STREAM PROCEDURE TSSEDITS( CaP ys 
IF sca"e" THEN BEGIN DIeP3 
IF SC¥%_g" THEN BEGIN SI¢SI+53 


t= SI} 


ENDS 


SI ¢ BUF IF SC = "$" THEN TALLY © 48 = 


“GETCOL1 © TALLY} 


Drepl+13 


BEGIN ‘SI*Cs ~ 
DS*LIT"=" END ELSE 
IF Sc#" " THEN IF SC#"O" THEN BEGIN Dleps  __ 


DTePs- 


OSetoOnos; 


02342010 T 0030 © 
02342020 T 0032 


02342030 T 


02333520 T 0021 
02333540 Tr 0022 
02333550 T 0022 
02334000 T 0024 
Bee ey co sc.dc we 
02336000 rt 0025 
02337000 + 0026 
02337100 tT 0026 
02337200 T 0026 
02338000 t 0026 
02339000 T 0028 
02340000 r 0028 2. 
02341000 + 0029 
02342000 T 0029 


peeeciies “*# END END ENO OF TSSEOTTS 7 “O2342000 FT OOSP 
STREAM PROCEDURE MOVEWCFeTsBsR)3 VALUE Bs RF 02343000 y 0039 
BEGIN 02344000 tT 0039 
LABEL XIT3 02345000 Tf 0039 

ee Oe ee ade ta Ded . ‘ 92346000 T 0039 ae a 
BC 02347000 T 06039 
2(40¢ IF SC = ALPHA THEN DS ©¢ CHR ELSE 02348000 7 0040 
IF SC # " " THEN OS © CHR ELSE ie ce era pe pen tote cee ewes ver m 92349000 70042 - . 

IF SC = "S* THEN BEGIN DS © LIT "C"% SI © ST#1 END ELSE 02350000 T 0043 
IF SC = "C"” THEN BEGIN DS © LIT ")"3 SI © SI*#1 END ELSE 02351000 7 0045 

IF SC * "#" THEN BEGIN OS © LIT "="3 SI ¢ SI#1 END ELSE 02352000 tT 0087 
IF SC = "&" THEN BEGIN DS © LIT “4"3 ST © SI+] END ELSE 02353000 tT 0049 
IF SC = "@®" THEN BEGIN OS * LIT "™"3 SI © SI+1 END ELSE 02354000 t 0054 

IF SC = "8" THEN BEGIN OS ¢ LIT "MMs ST ¢ STi END ELSE = = 02354100 T 0083 _ peated cased fe 
“IF SC = *<" THEN BEGIN DS © LIT “4*3 ST © Sr4i END ELSE 02355000 Tt 0055 
IF SC = ">" THEN BEGIN DS © LIT "#3 SI © SI#1 END ELSE 02356000 Tt 0057 


t 


DS * CHR 2)3 JUMP OUT TO XITDS 02357000 r 0059 

DS « 10 WDS3 02358000 t 0062 

XIT: 02359000 7 0062 
SteLOc Rs SyeSI+73 DIeDI+1 3 02360000 tT 0062 

DS¢CHR 3 02361000 y 0063 

END MOVEWS 02362000 rt 0064 
ALPHA STREAM PROCEDURE OCMOVEWCFeTsBoFILeR)3 VALUE BoFILeRS (02362010 T 0064 
BEGIN LOCAL C3 LABEL Lisl2eL3eL4 3 02362020 tT 0064 
SIerfs OLeTs 2CST#SI+363 DSe36LIT "93 CoeSI3 DSeBCHR 3} 02362030 T 0065 


02362033 7 O07, ~ 
02362034 7 O074 
02362035 Y 0074 
“OD 3B2036 FOO B 
02362037 7 0077 
02362038 y 0079 
02362040 tT 00806 
02362041 T 0082 
02362042 T 0083 


STe, OC RS SI*SI463 ODSe¢2CHR3 DreC3 DSeBLIT™IMSTALLY*337SIOF3 
IF sc # " © THEN Z%Zx IT MIGHT BE A FILES CARDe 

BEGIN SI¢SI+15 IF SC="F" THEN 

BEGIN. oe MD DeLOC ery. OL|edre2g TF. 58ceao¢e. THEN. 

BEGIN DIeFS SI*LOC FILS SleSI+#23 DS*6CHR 3 GO TO L153 END. 

ELSE SI*F END ELSE SleF END 
ELSe IF Sc ="F" THEN BEGIN DleLoc FILS0IeDI+23IF 6SCDC THEN GO Li 

ELSE SreFs END 

ELSrF IF SCeat=" THEN 


BEGIN ¥X% IT IS A CONTINUATION CARD, 02362044 7 0084 
SleSIe1s OleT3 DSe6LIT" a” 3 02362050 7 0084 
SCIF Sc=" " THEN STe¢SI41 ELSE JUMP OUT) GOTOL2 5 | 02362060 7 0086 
END | 08562063 7 O08R” 
ELSp IF SCe"C" THEN 02362066 7 0088 
BEGIN %%% IT MIGHT BE A COMMENT CARD. 02362070 T 0089 


SfeStei} IF Ste" THEN GO-TO Li ELSE: SIeF3 ERTERONO FY OONg ee 
END 3 02362090 T 0094 

IF sCx"$" THEN 22% IT IS NOT A COMMENT CARD» NOR IS IT A $ CARD» 02362100 T 0094 
BEGIN ¥8%° NOR A CONTINUATION CARDs NOR A FILES CARD. 02362110 F OOS, 


02362120 tT 0094 
02362130 7 0095 
02362140 7 0097 


2c33crr SC=" " THEN SleSf+1 ELSE JUMP OUT 2 TO L3))3 L38 Det; 
SCYF Sc=#" " THEN Sye*SI¢1 ELSE IF Sc2"0" THEN IF SCS"9"% 2 
THEN OSe*CHR ELSE JUMP OUT ELSE JUMP OUT) 3 


* -_OTeTs DIeDI+6s IF SCa"™ " THEN STeSI41 3 02362150 7 0100 
va, MEND SS ine cias dick whos See edn elss & nh Beau acd’ t, Mecluawgetaoae bleedin siebateee mh tathchete vommostteetd’ ac, <VeabetG0 V. 10101. . . 
Ee Sesto Oop ee 
BEGIN 02362180 ~ 0101 
Lat SIeFs OLeTS TALLY #36 Bo 02962990 TF 0N0d 
END 3 02362200 7 0102 


02362210 y 0102 


L28 Cw#TALLY 3} 
02362220 tf 0103 


— RC2CCCIF Sc>">" THEN DS*CHR ELSE IF Sc<"{" THEN DS*CHR ELSE. 


1 


IF Sca"#" THEN BEGIN DSeLIT"="3 SIeSI+1 END ELSE 02362235 7 0109 
_IF_Sc="&" THEN BEGIN DS¢LIT"4#"3 SI*SI41 END ELSE 02362240 ¢ O111 
If Sce™:" THEN BEGIN OSeLIT"""3 STe*SI41 END ELSE 02362250 T 0115 


' 


| 
| 


02362255 7 O47 
62362260 7 O1i9 
02362265 T 0121 
02362270 T 0123 
specs ogee ees 


IF Scs"e<" THEN BEGIN OSeLIT"#ns SleSIet ENO ELSE 
If Sca"{" THEN BEGIN OSeLIT*)"3 SleSI+i END ELSE 
IF Sc#"J" THEN JUMP OUT 3 TO L4 ELSE DS*CHRIIJJUMP OUT TO L4>3 
2CCcIF SCs") THEN JUMP GUT 2 To La ELSE ‘DSeCHRIY 3 Scenes 


Lat DfelLOc BCMOVEWS DS*BLIT"00 "S OLeDI=6 3 02362280 T 0134 

(6¢Ir S¢e"i" THEN JUMP OUT ELSE OS*CHR) So 02962285 7 0133 EL ee 

END OF DCMOVEW + 02362290 tT 0136 ~ 
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STREAM PROCEDURE SEQERR(BUFFs NEWs 


BEGIN 
OY 
SI 
i) 
DS 
S! 
DS” 
DS 
DS 

END SEQERR3 


¢ 


€ 


‘+e te ft 


OLD)3 


BUFFS DS « 18 LIT “SEQUENCE ERROR "3 
+ NEWS DS & Ly Tres 


8 CHRI 
3 LIT 


OLD3 D 
8 CHR} 


89 LIT 


B LIT "X43 DS ¢ 4 LIT" 3 


DS *¢ LIT "wHH$3 

" < 1s 

S ¢ LIT wey 

oS € LIT able} ; 


wom 


eer ai PACCEOUGE DCNOVECES CoACNS I; aCe ae 


BEGIN Sr#C3 DIeEs DS*10WDS$ DS+4CHRS STeLOC As DS*40EC 
NcOSes8Llir* P 


REAL BUF» ID3 
BOOLEAN NOWRIS 


LABFL LIBADDs ENDPAs EdAs Eds STRTA3 


ATCH™)3 END3 


LABEL ENDOPBs E483 


LABEL ErsE22E3eSTRI*ENDPsXITS 
UNPRINTED* TRUE 3 


GO To STRT3 
LIBaDDs — 
XTA &%= BLAN 


KS3 


IF INSERTDEPTH = =41 THEN SAVECARD t= NEXTCARDS 
MOVE ¢CROC9J,BUFL)3 


IF CINSERTDEPTH t# INSERTDEPTH * 1) GTR INSERTMAX THEN 


FLAGIC 


158)3 


NEWTPTOG t= FALSES ~ 
INSERTINX %% =43 
INSERTCOP ¢ 03 
BLANKITCSSNME519120)3 
BUF t= SCANINCCBUFs INSERTMIDsRESULTs 12093 


IF RESULT # 1 AND INSERTMID @ "4 


UN re scleaSeitia agate 


BEGIN BUF *SCANINCCBUFsIDsRESULT»120)3— 


ENDS 


IF RESULT NEQ@ 2 THEN FLAG] (15593 


IF ID = "COPY 


ELSE 


FLAGI(155)3 


" THEN INSERTCOP ta 1 


~BUF¢SEANINCCBUFSINSERTMIDsRESULT9120)3 UT 


BUF ¢ SCANINC(BUFsIDsRESULT»Oe1)3 ©) 


IF RESULT = 1 THEN IF ID @ */ 


oe tee EMRE HGNGMEHGEE 


arcs 


7 


" THEN 


IF RESULT NEQ 2 THEN FLAGI(155)3 
BUF ¢ SCANINC(BUF*IDsRESULTs0r1)3 
END ELSE INSERTFID t= TIMEC*1) ELSE INSERTFID t= TIMEC@1)3_ 


“TF RESULT = 3 THEN 
dane NEWSEQCSSNM(5 39 I1D)93 


02362300 ft 0137 
02362400 7 0137 


02362450 7 0137 
02362500 ~T 0139 
02362550 fT 0140 


‘02362600 T 0144 


02362650 T O142 
esser Od 1 cll h2 
02362750 T 0143 
02362600 tT 0154 
923628650 FT O153 nn. 


Petre ty fea 7 ie 


02362860 7r 0153 
02362865 T 0155 


_ 02362900 T 0158_ 
02362902 T 0158 
02362950 tT 0158 


02363000 ft 0158 


02363100 T 0158 
02364000 T 0160 
02364100 7 O64 
02364130 T 0162 

02364160 T 0162 
02364240 7T 0165 
02364280 7 0166 
02364300 T 0166 
02364320 T 0168 


02364330 ft 0169 
02364340 T O174 


02364350 FT 0173 


02364360 7 01475 
02364380 T 0177 
02364381 T 0184 
ee eee 
02364383 Tt 0187 
02364384 T 0390 
peta tote Sees 
02364386 T 0199 
92364800 7 0199 
02364420 P 0201 
02364840 Tt 0204 
02364460 T 0206 


02364480 T O21%1 
02364500 Y 0215 
02364520 7 O218 


02364540 7 022g” 


02364560 7 02258 
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iF Bee NEQ 
\_ hewses CINSERTSEQ>ID)3 


BUF ¢ SCOP ENECBUF s TOs RESULT? Ost Q2 
IF RESULT NEQ EN FLAGI(C156)3 
IF ID = "J * Hen NEWSEQ CINSERTSEQs99999999) 
eaeee BEGIN 


sour SCANINCCBUF*IDsRESULT2021)3 
3 THEN FLAGIC157)3 


END 
END FLSE IF Ip = ™) 
ELSE FLAGIC157)3 
IF INSERTDEPTH > 0 THEN CLOSE (LFs,RELEASE D3 
FILL LF WITH INSERTMIDs INSERTFIDS 
DO BEGIN 
READ CLFEINSERTINX # INSERTINX$1]¢1020BE*I)CE4)3 
END UNTIL SEQCHKCSSNM(5)20B8C93) NEQ 33 
NEWTPTOG ¢ SOO LEAVE TNC EeOy . ; | 


" THEN NEWSEQCINSERTSEQs99999999 ) 


cool NOT. NEW TPTOG.. THEN... 
BEGIN 


IF SEQTOG THEN = = nie ' ‘ 
BEGIN NEWSEQC(CRO(9],SEQBASE)3 MOVECCRO(9]sBUFL)3 
SEQBASE +SEQBASE+SEQINCRS 


ENDS MOVECCCRDOC93sBUFL)3 
IF LIBTAPE ANDCINSERTDEPTH = 0 ) THEN WRITECNEWTAPEs10eCRDL 4193 
END3 
IF LISTOG OR DOLIST THEN PRINTCARD3 
NEXTCARD S273 
GO TO STRT3 
IF NEXTCARD={ THEN TF TAPETOG THEN 
BEGIN 


NEXTCARD¢53 READCTP910sTBCeJ)LE2)3 GO TO STRT 3 
END 
ELSE 
BEGIN 
NEXTCARD!=63 | | 
IF GETCOLICCRD[0)) THEN BEGIN BUF t= MKABSCCRDLO})3 
BUF *SCANINCC(BUF sIDsRESULT#12093 IF ID NEQ@ INCLUDE 
THEN BLANKITCCRD*s9e1)3 ENDS 
&0 TO ENOP 3 
END 3 
NEXTCARD ¢ 53 GO TO ENDP3 
IF NEXTCARD®5 THEN 
BEGIN 
NEXTCARD8 #63 idectathe’ sad Re ee ere 
IF GETCOLICCROCO}) THEN BEGIN AUF t= MKABSCCRD(O))3 
BUF*SCANINCCBUFsIDsRESULT»#190)3 IF ID NEQ INCLUDE 
THEN BLANKITCCRD#991)3 ENDS 


END 
ELSE IF NEXTCARD#2 THEN NEXTCARDe1 ELSE 
BEGIN 


NEXTCARD*13 TAPETOG*BOOLEANC2)3 READCCRsfOsCBC*J)CE1T 3 


END 3 


IF VOINTTOG THEN IF SEQCHKCCRDE9]sVOIDTSEQ) < 4 


THEN VOIOTTOG2=*FALSE 

ELSE BEGIN VOIDTTOG#=FALSES GO TO STRT3 END3 
GO TO ENDOP 
NOWRI «TRUES 
IF SEQTOG THEN NEWSEQCCROL9)sSEQBASE)3 


02364580 


02364600 


02364605 
02364610 
02364620 
02364640 
02364660 
02364670 
02364680 
02364700 


(023647280 © 


02364740 
02364760 


~ 02364786 


02364800 
02364810 


ov D364 S4- 4 


02364815 
02364820 
02364830 
02364840 
02364850 
02364860 
02364885 
02364890 


023564900 


02364910 
02365000 


02366000 


02367000 
02368000 


02369000 


02370000 
02371000 
02371002 
02371004 
02371006 


02371010 


02371020 
02372000 


— 02372010 


02372020 
02372030 


02372040 


02372050 
02372060 


— 02373000 


02373010 
02373020 


— 02373030— 


02373040 
02373045 


02373100. 


02373200 
02374000 


~ 02374050 


02374053 


Shs rg ee ee ee ee ae 


0227 
0230 
0232 
0235 
0239 
0242 
0244 
0246 
0246 
0249 


0254 © 


0257 
0263 


0263 — 


0272 
0278 


ia Bec a5 i a eos sega pa Rissa 


0279 
0280 


~— 0260— 


0283 
0285 
0286 
0294 
0292 


0298 


0296 
0296 


(0298 


0299 
0305 


(0305 


0305 
0306 
0306 
0310 
0314 


(0316 © 


0317 
0317 


0318 


0319 
0320 


roti 


0328 
0328 


0330 


0330 
0333 


On 


0340 
0340 


0943 


0345 
0349 


0349 


0350 


eo 
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1 
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ATRIAL 


62 ong ema 
(bard © 


IF NEWTPTOG TH IF TSSEDITOG THEN 
BEGIN TESEGITECCROS PRIN: BUFF )3 WRITE CNEWTAPE» 10+PRINTBUFFL 4] 5 


END ELSE WRITECNEWTAPE* 10*CROL«))3 
Eat CLOSE CLFsRELEASE)3 | 
NEWTPTOG!= SAVETOG3 
IF CINSERTDEPTH t= INSERTDEPTH = 1) @ ©1 THEN 
BEGIN NEXTCARD « SAVECARD3 GO TO ENDPAS END 
ELSE NEWTPTOG ¢ BOOLEANCINSERTCOP)$ "7 
FILL LF WITH INSERTMIDs INSERTFID3 
READCLFCINSERTINX t= INSERTINX + 1]1000BC*))LE4J3 
IF SEQCHKCINSERTSEQ,0B8(9)) = 4 THEN GO TO E43 
GO TO ENDPS 
kee ee ee ee ee 
NEWTPTOGeSAVETOG3 
IF CINSERTDEPTH t= YNSERTDEPTH#1) = "1 THEN NEXTCARDS 2SAVECARD 


STRTAL 
IF NEXTCARDS6 THEN GO XIT 3 
CARDCOUNT*CARDCOUNT+41 3 
IF NEXTCARD = 1 THEN 
BEGIN % CARD ONLY 
IFCNOT DCINPUT OR TSSEDITOGIAND NOT FREEFTOG 
THEN MOVEWCCBsCRDsHOLTOGsIF OCINPUT THEN "0D" ELSE RI) 
ELSE IF SSNMC4]¢DCMOVEWCCBsCROSHOLTOGs"FILE “sIF FREEF TOG 
THEN " R" ELSE * 0%) # * * THEN 
BEGIN XTA*SSNM[4) 3 
MOVESEQCSSNMC4I,LASTSEQ)3 MOVESEQ(LASTSEQsCROL9)) 3 
rF LISTOG THEN | 
BEGIN IF FIRSTCALL THEN DATIME 3 
_ DCMOVECPRINTBUFF sCRD»(CADR41)50368103,0)3 — 
WRITAROWCL1sPRINTBUFF)3 UNPRINTED*FALSE 3 


END 3 
—FLOGCI49)3 MOVESEQCLASTSEGsSSNME4]) $0 
END 3 
IF GETCOLICCROLO)) THEN 


BEGIN 
BUF t= MKABSC(CROCOIJ)3— 
BUF t= SCANINC(BUFsID»RESULT9#120)3 
IF 10 NE@ INCLUDE THEN | 
BEGIN 
> DOLOPT3 
IF REALCTAPETOG)=3 THEN READCTP) § 
READC(CRs 109CBL¥I)CE1)3 
IF NOT TAPETOG THEN GO TO STRT3 
READCTPs10eTBC*¥))LE273 
NEXTCARD © SEQCHK(TBE9)* CBL93)3 
GO TO STRT3 
ENDS. 
END} 
IF LISTPTOG THEN 
BEGIN IF FIRSTCALL THEN DATIME;._ 
IF SEQTOG THEN NEWSEQCCROL9}sSEQBASE)3 
DCMOVECPRINTBUFF sCRDsCADR#1)e£36810)01)3 


WRITAROW C12sPRINTBUFF IS UNPRINTED t= FALSES 0 


a a 
READCCR»10-CBE*])CE133 


ELSE: NEWTETOG. . bd " BOOLEANCINSERTCOP) 5. Ale bathe pas Sth tes tae gas ace. 2 


SE3T8988 J 2383 


02374065 T 03614 
02374100 T 0366 


pea atie 7 0368 — 


02374150 rT 0370 
02374200 Tt 0372 


“02374300 y  O37a ~ 


02374450 ~ 0377 
02374470 T 0383 


“OR37NS00 F-03939 


02374520 T 0396 
02374560 T 0397 


~ 02374580 ‘930g 


02374600 ¥ 0399 


92374680 tT 0402 2 2.20 Ln. 
wo QBZ7PS000.F. OMOG ne 


02375600 tr 0407 


02376000 f O4O7 


02377000 T 0408 
02378000 Tt 0409 
02379000 T O410 


02380000 T 0410. 


02380100 7 0412 
02380125 7 0419 


02380150 Tt 0425 > 


02380175 T 0428 
02380200 T 0430 


(02380210 fT 0433 | 


02380220 T O434 
023860230 T 0436 


02380250 tT 0449 
02380300 T 0449 


02380400 t 0444 — 


02381000 TF 0444 
02382000 rt 0446 


02382200 T 0446 8 — 


02382300 Tr 0448 


02382400 7 O45, 
02382500 7 0489 


02383000 T 0453 


02383010 7 0483 


02384000 T 0458 
02385000 Y 0464 


02386000 T 0464 ~ 
02387000 T 0470 


02388000 t 0472 


92389000 T O477 | 


02389100 - O47? 
02389200 r 0477 


92389300 7, O477 


02389400 T 0480 
02389500 T 0482 
02389600 fT 0485 


“Ge900r00 tT Ohba ee 


02390000 fT 0468 


SR aROsa0 7 Ohie Oe ee 


: = , ee : 


GO TO ENDP3 
END; 
IF NEXTCARD = S THEN 
BEGIN see 
MOVEWCTBeCROpHOLTOGs"T") 3 
READCTPs 105 TAC #IICE2)3 
IF VOIOTTOG THEN IF SEQCHK(CROC9JsVOIDTSEQ) < 4 THEN 
VOIDTTOG « FALSE ELSE GO TO STRT3 


GO TO ENDP3 
END} iy sth ty Pg tetle tek hart seme heed ete 
IF NEXTCARD $ 3 THEN 
BEGYN % CARD OVER TAPE 


IFCNOT DCINPUT OR TSSEDITOG)AND NOT FREEFTOG 
THEN MOVEWC(CRsCRO*HOLTOGSIF DCINPUT THEN "Dp" ELSE ®RY) 
ELSE IF SSNMC4J*DCMOVEWC(CBsCROsHOLTOGs"FILE "»sIF FREEFTOG 
THEN © Rw ELSE " ON) # "Taine aE eae te 
REGEN XTAGSSNMEG IJ. } 


MOVESEQCSSNMEGJsLASTSEQ)3° _ MOVESEOCLASTSES, CRDLO1 io 


IF LISTOG THEN. 
BEGIN IF FIRSTCALL THEN DATIME 3 
DCMOVECPRINTBUFF sCRDsCADR4+1),036210)20)3 
WRITAROWC11sPRINTBUFF)S UNPRINTED*FALSE 3 
END 3 — 
FLOGC149)3 MOVESEQCLASTSEQsSSNM(4]) 3 
END 3 
‘IF NEXTCARD #2 THEN READCTPe10,TBC*#I)CE2)3 | 
IF GETCOLICCRD) THEN 


BEGIN. 


BUF $m MKABSC(CROLOI)3 RIP Bete 
BUF $= SCANINCC(BUF*s IDs RESULT#120)3 
IF TD NEQ@ INCLUDE THEN 
BEGYN _— 
DOLOPT3 
READ(CRs 10eCB(*I)CE333 
NEXTCARO *© SEQCHK(CTBE9)s CBL9Y)3. 
GO TO STRT3 
E3: NEXTCARD*+S3 GO TO STRT3 
Signo Redeart ts 
ENDS 
IF LISTPTOG THEN 
BEGIN IF FIRSTCALL THEN DATIMES 
IF SEQTOG THEN NEWSEQCCRDL91»SEQBASE)3 
_ DEMOVECPRINTBUFF sCRDsCADR+1) of 3681090493 
“WRITAROW (C12sPRINTBUFF)S UNPRINTED t@ FALSES ~ 
ENDS 
READCCR#10eCBE4)) 
NEXTCARD ¢ SEQCHK 
GO TO ENDP3 
END3 


CEI 
KCTBC9I» CBL9))3 


% TAPE BEFORE CARD. 
IF NEXTCARD = 7 THEN 
BEGIN 

IFCNOT OCINPUT OR TSSEOITOG)AND NOT FREEFTOG ~ 
THEN MOVEWCOBsCRDeHOLTOGs"L") ELSE IF XTA*OCMOVEWC(DB»CRD» 

Hop nost ate ",IF FREEFTOG THEN " R* ELSE * D")~ 

WoTHEN FLOGC149)3 - 

IF GETCOL1¢CRDLO}) THEN 


02391000 7 0494 
02392000 tT 0494 
02393000 7 0494 
02394000 T 0495 
02395000 tT 0495 
02396000 T 0499 
02396100 ft 0504 


02396200 7 0507 


02397000 Tf 0510 
02398000 T 0510 


02399000 FT O516 


02400000 fT 0511 
02401000 r O514 


~O2401100 F OSIs - | 


02401125 7 0520 
02401150 T 0526 


» OHO 425 OF OB A6: cet tee i ainetnntantote eed: 


02401200 7 0534 
02401210 T 0534 


(02401220 rt 6538 © 


02401230 t 053? 
02401240 7 0540 
02401230 y 0543 
02401300 7 0543 
02401400 7 0548 


02402000 7 0545 


02403000 T 0582 
02404000 7 0553 


02404200 tf O55a° | 


02404300 rT 0556 
02404400 7 05539 


02404500 fT 0560 ~ 


02405000 r 0560 
02406000 fT 05614 


“02407000 ¥ 0564 


02408000 rT 0568 
02408500 T O574 


~~ 02409000 ¥° 0575 


02409100 7 0575 
02409200 7 0575 


62409300 F 0576 


02409400 Y O57 
02409500 fT 0580 


~ 02409600 tT 0563 


02409700 T 0587 
02410000 7 0587 


~“OSUT1000 7 ~059S- 


02412000 FT 0594 
02413000 7 0898 


=? Geaso00 y bse 


02414100 fT 0598 
02414150 7 0596 


~~ O2474175 7 0596 


02414200 FT 05946 
02444225 + 0607 


“OSE{US50 F 0810 


02414260 T 0613 


BEGTN A outs 
BUF %= MKABS(CRD[O))3 


BUF $® SCANINCCBUF* ID»sRESULT9120)3 
IF ID = JNCLUDE THEN GO TO LIBaADO3 


REABCLFCINSERTINX@INSERTINX+1)5102DB0*))CE4B)3 

IF SEQCHKCINSERTSEQs08(9]) = 4 THEN GO TO E4B3 

IF GETCOLIC(CRDCO) THEN BEGIN DOLOPTS GO TO STRT$ ENDS 
GO TO ENDPS 


MOVEWC(CTBsCROsHOLTOGs"T") 3 
READCTPe10-TBL¥))CE2)3 
IF VOIOTTOG THEN IF SEQCHK(CROC9OIsVOIDTSEQ) < 4 THEN 


GO TO STRT3 END3 


ENDS... ioee 
IF NEXTCARD NEQ 7 THEN. 
IF VOTDTOG THEN IF SEQCHK(CRO[9J»VOIDSEQ) < 4 THEN | 
VOIOTOG t= FALSE ELSE GO To STRTS 
IF GETCOL1CCRD[0}) THEN 
BEGIN i? 
BUF %= MKABS(CRD(O))3 
BUF tm SCANINCCBUF »IDsRESULT#150)3 
IF ID ws INCLUDE THEN GO TO LIBADD ELSE Go TO STRT 
ENDS; 
SEQERRORS t™ FALSE 
IF NEXTCARD = 7 THEN 
“BEGIN MOVESEQ(LASTSEQ,CRO(9})3 GO TO ENDPAd ENDS 
IF CHECKTOG AND SEQERRCT#O THEN SEQERRCT#! 3 
IF CHECKTOG THEN IF SEQCHK(LASTSEQsCROL9J)e3 THEN | 
BEGIN 
SEQERRCERRORBUFF sCROCOIsLASTSEQ) 3 
 MOVESEQCLASTSEQsCROC9]) 5 
IF SEQTOG THEN 
BEGIN NEWSEQ(CRD[9)»SEQBASE )3 SEQBASE+SEQBASE*SEQINCR ENDS 
MOVESEQCLINKLIST*CROLOI)3 
MOVECCROUOS+BUFLY BO 
SEQERRCT¢SEQERRCT+1 3 
SEQERRORS¢TRUE 3 Bee Aatnatadeiactlede 
IF NOT LISTOG THEN PRINTCARD 3 
END 


-ENDPAS Deedee a tte tom lite, Maen F 
IF SEQTOG THEN 
BEGIN 
NEWSEQCCRDL91»SEQBASE)3. 
SEQBASE ¢« SEQBASE + SEQINCR3 
ENDS 


VOIOTTOGSSFALSE ELSE BEGIN NEXTCARDSeSEQCHK(TBI9]sCBL91)s ~ 


NEXTCARD ¢ SEOCHK (TALEO I» CBL9))5 ; | | 


ELSE MOVESEQ(LASTSEQ,CRO(9]) ELSE MOVESEQ(LASTSEQsCROE9I) §o 


02414270.7. 


02414280 T 
02414290 T 
02414300 TF 
02414310 TF 
02414370 7 


. 02414380 F 


02414382 7 
02414390 T 
02414400 Tf 


“02415000 FT 


02416000 T 
02416100 fT 


02416200 P 


02416300 ¢ 
02417000 Tf 


024480007... 


02418100 7 
02419000 Tf 


02419050 T 


02419100 T 
02419150 T 
02419200 T 
02419250 7 


02419300 1 


02419325 7 
02420000 T 


02420010 FT 


02420011 T 
02420015 fT 
02420020 T 


62420030 T 
02420040 Tf 
02420050 T 


(02420083 Tf 


02420057 T 
02420060 T 


02420070 7 
02420080 T 
02420090 Y 


"02420300 7 


02420110 T 
02420120 T 


02420150 T 
02420200 7 


02420250 T 


02420300 T 


02420350 7 


02420400 7 


02420450 T 
02420500 T 


92420550 T... 


02421000 T 
02422000 7 


92423000 FY O742 00 


02424000 TY 
02425000 T 


0614 
0615 
0617 
0620 
0621 
0624 
(0631 
0635 
0649 
0642 
06492 
0645 
0651 
Csr 
0659 
0660 


wt Ee Sie Kc Laced ates oaks and 


0663 
0663 
0668 © 
0670 
0674 
0679 
0674 
0677 — 
0679 
0679 
0680 


gaan re ses 


0684 
0687 


agg ee 


0694 
0693 
0694 
0698 
0698 
0700 
0704 


0702 


0704 
0706 
0706 


— O71000—O 


0710 
0710 


eee aan 


0710 
OT10.. 
0710 
O710 


O714 
O7Lt 


0713 
O714 


LG lc Ae ee eee ne eee ee 


e 
IF NOWRI THEN GO TO ENDPB3 
IF NFWTPTOG THEN IF TSSEDITOG THEN BEGIN TSSEDITSC(CCROsPRINTBUFF) 3 re t aris 
e a ce iy MENTE ASteE ENT UEL Ue ENO ELSE WRITECNEWTAPEs10sCRDO(#)) 3 02426005 TY O719 
PB! 
7 02426008 T 0728 
° IF I THEN ereeas J 0789 
MOVESEQC(LINKLIST»CRDE9I) 3 nahi u arse 
° Mevecenerg leur 3 02426040 T “0730 
NCR ¢ INITIALNCRS Peet ene i aa 
READACARD « TRUE3 12 r O73 
° wane 02429000 T 0734 
| SEGSWFIXED « TRUE 3 Se ; ae 
REMFTXED+TRUE 3 02431005 ¥ 0736 
@ IF TSSEDITOG THEN WARNEOe*TRUE 3 02431100 7 0738 
IF LrSTOG AND FIRSTCALL THEN DATIMES 02432000 T O74; 
=" LE... SPGSW..THEN 232% ENTER SEO#. AND..ADR. TO.LINESEG..ARRAY,.... cow wv MO QA32L00.07.. 
BEGIN IF LASTADDRZADR THEN BEGIN NOLIN@NOLIN®LS LASTADDR*ADR ENDS 02432200 Tt 0748 
LINESEGCNOLINeIR#NOLINSICI#O & D2BCLASTSEQ)£10220:28) & CADR+3) 02432300 T O748 
e eset 10) 3 : 7 3 02432400 T 0754 
; ey Ce a a Aan £ 02432500 T 0755 
END REANACARDS bri Pai ae 02433000 Tt 0755 
6 y ppt Ae wy "att VY ggg? = 80: TS 761 LONG, NEXT SE 
at ae hay A " ree Al Ae sme 
; ae gee rb peo ge aa jot phi . ; a - aan LOA Happid 
@ Cf vi a an [ “y ; ZL Ge as rents CEA ES - 
yo" twreser ances PROCEOURE CONVERT(NUB*SIZE»PsCHAR)S VALUE PS 02434000 T 0497 
e Ja - Od435000 Ff OaOP 
nee 5 02436000 7 0498 
“@CIF SC < "0" THEN JUMP OUTS. seaas00e' + aes 
@ St « SI + 43 TALLY © TALLY + 193 02439000 tT 0499 
CONVERT ¢ SI3 02440000 rt 050 
DI © CHARS DOS ¢ 7 LIT "03 DS © CHRS 0244100¢ I~ O86; 
@ Va raeee U: 7 0504 
. SI « PZ DI * NUBS DS ¢ T OCTS aeasicae ; neee 
DI « SIZE 3 SI * LOC T3 DS © WDS3 “ys 0504 
e eee 02444000 + 0504 
02445000 fT 0508 
e 
7 PROCEDURE’ S¢ANY — <OeaSnos USER 
02447000 7 0506 
__. BOOLEAN STREAM PROCEDURE ADVANCECNCRs ACR» CHAR» NCRV» ACRV)S _ 02448000 7 05 
e VALUE NCRVs ACRV» CHARS | SH gee aegGy. FOGG 
Pare BEGIN LABEL LOOP? 02450000 T S06 
LABEY O16. RUPHS “BRIS” BKEs" SPEEE Uo PE OOF 
@ DI « ACRV3 02482000 ul 0000 
- SI ¢ CHARS SI ¢ SIe8s_ 0245300 
| TF Segre ® THEN a Boise eas tag feat ae eae 0000 
e Ie SC 2 "0" THEN BEGIN SI © NCRVS GO TO BKY END ELSE 02455000 : 0004 
etic eet te ee sCBEGIN ST © NORVS GO TO BK2 ENDS 02486000 T 0003 
ary IN SE @ NCRVS GO TO BKe ENDS 5a R00 FT OOo 
@ | LOOP: 02458000 T 0004 
@ « "6 Lary ‘ ¢ . ‘1 
e * - La ‘ « 
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@ 
IF Sc en" THEN BEGIN SI*SI+13 GO To LOOP ENDS 02459000 T 0004 
YF Sc 2 "0" THEN 02460000 r 0006 
¢ BEGIN 02461000 ft 0007 & 
OrG! pS ¢« CHR; _ 02462000 7 0007 
Beit IF SC = " " THEN BEGIN SI ¢ SI+13 GO TO BK1i END3 02463000 7 6008 
oe Ip Sc 2 "0" THEN GO TO DIG3 02464000 fF 0010 @ 
\ Gn TO SPEC3 02465000 r 0011 | er ea 
ENDS 02466000 T 0011 bzial 
TF Se = ALPHA THEN 02467000 fT OO01L% Not. ©@ 
< BEGIN, Oo 02468000 7 0012 
| ALPH! DS « CHR3 02469000 7 0042 ADVAR CE 
Bk2! IF SC = * ™ THEN BEGIN SI © SI+13 GO TO BK2 END} 02470000 T 0013 e 
Ip SC = ALPHA THEN GO TO ALPHS os Gia ne a 02471000 T 0045 _ 
ENDS 02472000 T 0016 
SPEC: 02473000 T 0016 @ 
ACRV © DY3 ..92474000 rT 0016 |. aera 
at ae eee ee a mes We 1 ¥- tsa eee tek Bee eee Onan ecene nee 
IF Sc s "yt THEN 02476000 7 0018 & 
BEGIN TALLY « 13 SI * LOC ACRV3 02477000 7 0018. 
Dy « ACR} DS « WOS3 02478000 Tt 0019 
Dr ¢ CHARS DS © LIT "33 02479000 tT 0020 @ 
END FLSE 02480000 T 0024 
BEGIN DI « CHARS DS © CHR3 02481000 tT 0021 
ACRV « SI3 SI © LOC ACRV3 02482000 fT 0021 ) 
Or * NCRS DS « WDS3 02483000 7 0022 
END3 02484000 tr 0022 
AOVANCE ¢ TALLY3 02485000 rt 0022 e@ 
END ADVANCES 02486000 fT 0023. 
@ 
BOOLEAN PROCEOURE CONTINUES 02487000 Tt 0024 ) 
BEGIN 02487200 7 0024 
LABEL LnOPs 02487400 T 0024 
START OF SEGMENT wxetttawne @ 
BOOLEAN STREAM PROCEDURE CONTINCCD)3 . . 02487600 T 0000 
BEGIN St*CD3 YF SC#¥"C" THEN IF SC¥"$" THEN BEGIN SI*SI+#53 IF Scz" " 02488000 y 0000 
__.. THEN IF SC#"0" THEN BEGIN TALLY#13 CONTINe©TALLY END END END OF CONTIN 3 02489000 fT 0002 @ 
BOOLEAN STREAM PROCEDURE COMNTC(COsT)s VALUE T 3 | me . _ , 02489200 7 0005 | alae sexeatee 
jul @ 
we 
BEGIN LABEL L 3 02489400 T 0006 IRU oe 
SI ¢ CD} IF SC = "C" THEN BEGIN TCSIeSI+13 IF SCa"=" THEN TALLY@1 | 02489600 7 0006 ok 
ELSE JUMP OUT TO L$ TALLY#13 L&8 ENDS COMNTeTALLY 3 "02490000 Tt 0009 
____ END COMNT3 02490200 rT OO014 e 
@ 
BOOLEAN STREAM PROCEDURE DCCONTIN(CO)3 eee “F2090400 1 OOS 
BEGIN 02490500 fT 0012 e@ 
St6 COs IF SC = """ THEN TALLY © £3 00 2 02490600 7 0043 | oer 
DCCONTIN © TALLY3 02491000 fr 0014 
END DCCONTINS 02491200 fT 0014 e 
© 


5 : | 
ee ee ee ee ee, ee er | 


@ 
a 
f 
@ | 
LOOP: IF NOTCCONTINUE «+ a a am oi aie atta tha of e 02491400 T 0015 
@ IFCOCINPUT AND NOT TSSEOITOG)OR FREEFTOG THEN 02491600 tT 0016 
5, IF NEXTCARD < 4 THEN DCCONTINCCB) 02491650 T 0019 
FLSE IF NEXTCARD = 7 THEN DCCONTINCOB)ELSE CONTIN¢TB) © O249T700 F D021 
@ ELSE IF NEXTCARD = 7 THEN CONTINCOB) 02491800 T 0026 
. ELSE IF NEXTCARD < 4 THEN CONTINCCB) ELSE 02492000 t 0030 
EONSENCTHIS THEW cen ONE B) ELSE es -apagEROO-e-OONs 
eo IFCIF NEXTCARD < 4 THEN 02492400 7 0036 
COMNT(CCBsCOCINPUT AND NOT TSSEDITOG) OR FREEFTOG) 02492450 7 0038 
. ELSE IF NEXTCARD = 7 THEN oO ee Pe as, ~- -- ggEgEsoo'T  C0ay 
-@ COMNTCDBsCDCINPUT AND NOT TSSEDITOG) OR FREEFTOG) 02492550 T 0044 
2 ELSE COMNT(TB*0) AND NEXTCARD # 6) THEN 02492600 T 0048 
- sp GUN ee bhai cece cree atone 05 ae etn ant ac eaten ete th ont cama nates al a Mean a OOO SOOO: Foe oe 
:@ IF READACARD THEN IF LISTOG THEN PRINTCARD3 02493200 fT 0053 
= GO TO Loops | _ | _— 02493400 7 0085 
| END3 ~ 2493600 tf 0056 
6 END CONTINUES * 02494000 T 0056 
7 . 82 1S 59 LONG» NEXT SEG 
 ] 
@ PROCEDURE SCANX(EOQF1s EOF2» FOSi» E0S2» OKis OK2)3 02495000 tT 0024 
VALUE FOF1s EOF2s E0Sis» EO0S2» OKi» OK23 02496000 rT 0024 
INTEGER UEOFLS EOF BS EUS €OSSeOK4s OK2) “Ogg oR 
@ BEGIN LABEL LOOP» LOOPO 3 02498000 T 0024 
Seek elisa ak at © ox guar Grad Ao tes aS cee ee ee START OF SEGMENT seaeetawee 
Cone, ete wis, AeA ees ee TOR OF BADELOU'Y D000 
®@ EXACCUME1] © BLANKS3 02499000 r 0000 
ACR « ACRIS > 7 Soe ce oe . 02500000 r 0004 
LOOP: 82501000 7 6000 
@ IF AMNVANCECNCRe ACRs CHR1s NCR» ACR) THEN 02502000 t 0002 
Tr CONTINUE THEN © ae ee 02503000 fT 0004 
; — ih ahaa moeaes wen sg Seg "OOO 
e IF\ READACARD THEN 02505000 tT 0008 
. -BEG ns Ae Schon ou HARM eta ee den: 02506000 7 0006 
I 02906010 fT 0006 
® IF ACRef 338i5)2EXACCUMSTOP THEN 02806020 T 0008 
{\ ..... BEGIN XTA®BLANKSS FLOG(175)53 GO LOOPO ENO 4 = == = 02806030 F 0009 
| GO LOOP 3 02506040 T O012 
@ | \ END Se 2 ee 02506050 7 0012 
| ao aN PERS CITE BANS REN Eee ek ge Se EOF2 _ 02507000 Tt O00%2 
ELSE SCN « IFTEXACCUME1) ® BLANKS T EOSi EUSE E0S2 02508000 7 00158 
@ ELSE SCN © IF EXACCUME1) = BLANKS er OK23 02509000 tT 0019 
END SCANX3 se thogont ea ete Pa pes incites tahoe seaman: tub oo 02510000 T 0023 
e 83 18 24 LONG, NEXT SEG ‘B11 
& 
ENG DEFINE CHAR = ACCUMLO)#3 02511000 fT 0024 
DEFINE veSYMBOLE the Rc OS es 
a) <.. INTEGER N3 . 02513000 T 0024 
@ te 4 . % ‘ . . « . * rT © ry 7 . “ ¢ 


BOOLEAN STREAM PROCEDURE CHECKEXPCNCRe NCRVs A)’ VALUE NCRVS i conde oes 0 oe 92514000 


= 
4 


i: i i : 3 


T 0024 t- -_ 
BEGIN 02515000 fT 0024 
SI ¢ NCRV3 02546000 fr 0024 
IF Sc = "#" THEN . ... 02517000 t 0024. Ted 
BEGIN DI * As’ OI * DI+23 OS © 2 LIT “ws ST © ST#13 NCRV © STI3 02518000 7 0024 ae 
TALLY © 13 CHECKEXP «© TALLY3 02519000 tT 0026 eckexP 
St ¢ LOC NCRVS DI * NCRS DS + WDS ENDS Oo 7 02820000 tT 0027 ssf & 7 
END CHECKEXP3 02521000 t 0028 T—— 
PROCEDURE CHECKRESERVEDS ee nT or ee 02522000 fT 0029 
BEGIN LABEL RESWD» XIT» FOUND1s» FOUNDS» DONES eS ae ee os " O2827000 + 0029 
START OF SEGMENT xsxeueteweas 84 
eee STREAM PROCEDURE SOMPLE TE CHECK CAPE sNX VALUE N 3 | _ 02523100 y 0000 |. feo. abet 
BEGIN. LABEL 1d. susie Sedat Mac oii tats Seer OM LS a A ic MIO GS econo ciscinessrts dee qeniaoinomnatereee dennis 
SIeas Sl#S1"23 DleBs NCIF SC#DC THEN JUMP OUT TO L)3 TALLYe13 02523300 fT 0000 
L! COMPLETECHECK*TALLY 3 . - . . 02523400 fT 0003 
END OF COMPLETECHECK 3 02523500 T 0004 
STREAM PROCEDURE XFERCFROM» Tis T2» Ne M)3 VALUE FROM» No MZ . ; 02524000 7 0005 
BEGIN St ¢ FROM$ NI * T13 DI © D423 02525000 7 000s 
OS ¢ M CHR3 02526000 7 0006 
SI ¢ FROM3 SY ©¢ SI4N3 02527000 t 0007 
Ol « T23 DI « DI+23 02328000 7 00048 
DS * 6 CHR} 02529000 fT 0008 
END XFERS ~ 7 7 ee 025390000 T 0008 
STREAM PROCEBURE XFERACFROM, NEXTiy NEXT2)3 02531000 T 0009 
VALUE FROMS 02532000 fr 0009 
BEGIN Sr ¢ FROM$ SI © ST+63 z — we O2573000 + 0009 
DI ¢ NEXT13 DI © Drea2s 02534000 fT 0009 
5CIF SC 2 "o" THEN DS ¢ CHR ELSE JUMP OUT) 02535000 T 0010 
S1 « Sy+23 02536000 tf O02 
DI «© NEXT23 DI © DI423 02537000 tT 0042 
6CIF SC = ALPHA THEN DS ¢ CHR ELSE JUMP OUT)3 02538000 fT O0192 
on MEERA ee PS 
BOOLEAN STREAM PROCEDURE CHECKFUNCFROMs TOOs N)3 VALUE FROM» N$ == -§ = — 92540000 y 0015 
BEGIN St «¢ FROMS SI © SI + N3 02541000 + 0015 
IF Se = "O" THEN 02542000 T 0016 
BEGIN SI © SI#l) 9. i i ee 02549000 T 0017 
Ip SC 2 "N" THEN 02544000 T 0018 
BEGIN S] « SI¢13 TALLY « 13 02545000 T 0018 
DI + TOOs DOI « O1e23 | yn euhaete Ce 02546000 FT 0019, 
0S « 6 CHR3 02347000 tT 0020 
END3 02548000 tT 0020 


_ 


-—— “COMMENT 


END} 
CHECKFUN © TALLY3 


END CHECKFUNS 


BOOLEAN STREAM PROCEDURE MORETHAN6(P)3 
BEGIN Sy « P3 
IF Sc # * * THEN TALLY © 13 
MORETHAN6 © TALLY3 
END MORE THANG 


INTEGER 13... 
INTEGER STOR 3 
IF AcCUMC1) = * " THEN 
BEGIN XTA & CHARS FLOGC16)3 GO TO XIT ENDS 
IF CHAR = "s "OR CHAR = "¥# " THEN GO TO XIT3 
IF CHAR = "e " THEN GO TO XIT3 
IF CHAR x "CO " AND CHAR # "% " THEN GO TO RESWD3 
IF MORETHAN6CACCUME2)) THEN GO TO RESWD3 
AT THIS POINT WE HAVE <ID> ¢ . 
THIS MUST BE ONE OF “THE FOLLOWINGS ~ — rise - 
ASSIGNEMNT STATEMENT WITH SUBSCRIPTED VARIABLE AT THE LEFT. 
STATEMENT FUNCTION DECLARATION, 
CALL» REAL» ENTRY» G@ TO, READ, WRITE, FORMAT, ~ 
NCH$ 
—— tr I # SEARCHCT) > O THEN 
IF GETCT) «CLASS = ARRAYIO THEN GO TO XIT3s” 
ID + T3 1D.¢36812] « " 43 
FOR I¢0 THRU RSP 00 IF RESERVEDWORDSLPCIJ=ID THEN IF CIF STOR 
¢RESLENGTHLPEIJ*4<1 THEN TRUE ELSE COMPLETECHECK( ACCUMT2]s Pe 
RESFRVEDWORDSLPCI+RSP13.STOR)) THEN GO FOUND! 3 
GO To XITs 
FOUNNnL? 
NEXT «© LPGLOBALLII3 
Me Me hice hes 


— 02555000 


02552000 
02553000 
02554000 


02556000 


02557100 


02858000 


02561000 


62559000 


02560000 
02560100 


02562000 
02563000 


~ 02564000 


IF, DATA, CHAIN, PRINT OR” 


— 08571100- 


02574000 
.. 02576000. 


XFERCACROs Ts» NEXTACCs LeRESLENGTHLPEI), IF I> 6 THEN 6 ELSE 193 

GO Tn DONE3 

ets tet Sie gmt tet hee tee tee vate Ata Aes Pa tea acl ccs heen eS. ot Succi e nae 
COMMENT AT THIS POINT WE KNOW THE <ID> MUST BE A SPECTAL WORD 


. TO IMENTIFY TRE STATEMENT TYPE3 
ID © TS 1009036222] 6 "Me 
IF T = "aSSIGN" THEN 
BEGIN 
_NEXTSCN @ SCNS SCN @ £43 0 
NEXTACC « NEXTACC2 « * "3 
XFERACACRO» NEXTACCs NEXTACC2)5 


NEXT © 13 


aoe TO XITS 
ENDS 
FoR Iei THRU RSH 00 IF RESERVEDWORDSCIJ#ID THEN IF CIF STOR® 


RESLENGTHCTI*4<1 THEN TRUE ELSE COMPLETECHECKCACCUME 2] sRESERVEDWORDS = 


CI+RSHi},IF STOR?8 THEN 8 ELSE STOR)) THEN GO FQUND2 3 
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~ 02586000 


~ 02583000 
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02565000 
02566000 


02567000 — 


02567100 
02568000 


02569000 ~ 


02570000 
02571000 


02572000 
02573000 


02575000 
02577000 


02578000 
02579000 


02580000 


02581000 
02582000 


02584000 
02585000 


02587000 
025888000 


02589000 — 


02890000 
02391000 


O23591100- 


02592000 


Q2587000 7... 


Pe, 
~y 
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Hl } : : { : 
i i z . i i ys i B 3 
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XTA « TE FPLOGC1623 GO TO XIT3 
FOUNN2! 
NEXT © T413 


Ten "5 


XFERCACROs Te NEXTACCe ITeRESLENGTH (IJ, IF I> 6 THEN 6 ELSE 1)3 


NONE: NEXTSCN « SCN3 
IF NeXTAcC = “"FUNCTI™ THEN 
Ip CHECKFUNCACROs NEXTACCs 146) THEN SCN ¢ 133 
XITS 
ECSTOGeFALSE3 
END CKECKRESERVED3 


EERE TST Ea TCT | aetna a 


BEGIN ‘ 
INTEGER Se Ts LABEL XIT3 


INTEGER STREAM PROCEOURE COUNTCACRVsT)3 VALUE ACRVsT 3 
BEGIN 
LOCAL A»B3 SteLOc T3 STeSI+7 3 


IF Sc="q" THEN BEGIN SI*ACRVSIF SC="O" THEN SI*SI*} END ELSE SI¢ACRV3 | 


IF Sc#™ # THEN 
BEGIN AeSI 3 


17CIF SC>"7" THEN BEGIN TALLY¢173 JUMP OUT END ELSE IF SC<"0" THEN __ 


BEGIN IF SC#" " THEN TALLY*173 JUMP OUT ENDS SleSI413 
Morne uaa , 
BeTALLY3 SfeLOc B3 Sle¢S1+7 3 


‘Te Sc#"™+" THEN BEGIN STAs IF SC>"3" THEN TALLY*17 ENDS ~~ 


END 3 
COUNTeTALLY 3 
END OF COUNT 3 


ALPHA STREAM PROCEDURE CONVCACRV* S» T)3 VALUE ACRVs Se TS 
BEGIN SY * ACRV3 IF SC = "O" THEN SI + S1413 
DI * LOC CONVS SKIP S DBS 


: TCSKYP 3 SB3 3CIF SB THEN OS © SET ELSE DS ¢ RESETS SKIP 1 SB))s = 
END CONV3 


If TeCOUNTCACROs1) | = oO THEN | 
BEGIN S ¢ 43 
Ie T © CHAR # "4 
Jie J = "= 
SCANX(4s Gs 32 3a 102 10)3 
Ip SCN # 40 THEN GO TO xIT3 
Ir TeCOUNTCACRIs2) =z 0 OR T > 16 THEN GO TO XIT J 
FNEXT © CONVCACRIs (L6"T)x3, TIF 
le S < O THEN FNEXT © @FNEXT3 


“ ANDO T # "8 " THEN 


Ta MEW 2) ec 2b ESE GO TOUR ITD ys hit lah decane, aro ce ge 


02593000 7 0098 
02594000 T 0100 
02595000 fT 0404 
02596000 fT 0102 
“023557000 7 O103 
02598000 T 0107 
02599000 rt 0108 

"02600000 7 0109 = 
02601000 Tt O110 
02602000 T O1t4 
02603000 7 0118 


02604000 T 0115 
84 1S 120 LONG, NEXT SEG 


02606000 T 0029 

02607000 T 0029 
START OF SEGMENT weeeukawens 

02608000 Tf 0000 


02609000 YT 0000 
02610000 T 0000 
(02611000 T 0000 
02612000 T 0003 
02613000 T 0003 
02614000 + 0004 
“02614010 7 0006— 
02614015 rt 0009 
02614020 T 0010_ 
02614030 t O010 #&#£z£#7- 
02614040 tT O012 
02614050 F 0012 © 
02614060 Tf 0013 


02616000 7 0014 
02617000 T 0015 
02618000 T 0015 __ 
02619000 7 0019 


02620000 T 0020 
“02620100 fT 6624 
02620200 


T 
02621000 T 0027 


02621100 + 0030 [ 


02622000 T 0032 
02622100 fT 0033 


02623000 


te eae hrescitetigastnt te betta 


CHECLOCTAL 


02615000 F OOM fn 


cae eee ae oY) 622300 Oo ok] 8 Seat Sate Rie ni a teeta /0 ve eioe etter tara tarceasys 
T 


—— 


END ELSE IF T < 47 THEN FNEXT*CONVCACROs(16°T)x3,T) ELSE GO TO XIT 3 


CHECKOCTAL ¢ TRUES 
NEXT ¢ NUM 
NUMTYPE « REALTYPE3 
XIT! 

END CHECKOCTALS 


PROCEDURE HOLLERITHS 
BEGIN | | 
REAL Ts COL» T2» ENDPS 


LABEL XIT3 


INTEGER STREAM. PROCEQURE. STRONT-CS#DsSZ93-VALUE Se SZ 


BEGYN 
SI ¢ S$ DI ¢ 0308S « 8 LIT "00 "3 DI « D3 
Ol ¢ ps DI © DI + 23 DS «SZ CHRS STRCNT « SI3 
END STRCNTS 


INTEGER STREAM PROCEDURE RSTORECS#DsSKP»sSZ)3 

VALUE S» SKP» SZ} 
BEGIN 

DI ¢ 03 

ST © $3 DI *DI + SKP3 OS © SZ CHR} RSTORE « SI3 
END RSTORE3 


Fi¢ FNEXT3 
NUMTYPE « STRINGTYPE3 
T ¢ oO & NCRLE390833915) & NCRE 452302313 
COLL ¢€ O & INITIALNCRO30233215)3 
ENOP © COLL + 723 
STRINGSIZE « O3 
WHILF Fi 70 DO 
oD 
T2 « IF Fi > 6 THEN 6 ELSE F113 
Tr STRINGSIZE > MAXSTRING THEN 
BEGIN FLAG(120)3 STRINGSIZE. * 0 END3 
IF T#T2> ENOP THEN IF DCINPUT OR FREEFTOG THEN 
BEGIN XTA*BLANKS$ FLOGC150)3 GO TO XIT END 
ELSe BEGIN 
Ip TSSEDITOG THEN IF NOT OCINPUT THEN TSSEDCBLANKSe1) 3° 
NcR ¢ STRCNTCNCRs STRINGARRAYCSTRINGSIZEJ]» ENDP#T)3 


SS NOT, COIN TUNG EIN owen icin Rip Sees anhleviah-au-anaedeg Sete: puch vaneitianen niclbeuesd email tices 


BEGIN FLOGC43)3 GO TO XIT END3 
If READACARD THENS _ 
IF LISTOG THEN PRINTCARDS 
NCR © RSTORECNCRs STRINGARRAYCSTRINGSIZEJ sENDPHT+2sT2"(ENDP#T) )3 


85 IS 


START OF SEGMENT 


4 


t 


4 


02623100 7 
02624000 TT 
02625000 T 
02626000 T 
02627000 fT 
02628000 Tf 
38 LONG» | 
02629000 T 0029 
02630000 7 0029 
02631000 + 0029 
aekeekkhehan 
02632000 T 0000 — 
-02633000--7- 6006 
02634000 T 0000 
02635000 Tr 0000 
02636000 r 0002 
02637000 r 0003 
02638000 T 0004 
02639000 T 0004 
02640000 fT 0004 
02641000 fT 0008 
02642000 Tf 00058 
02643000 T 0006 
02644000 T 0007 
02645000 TF 0008 
“02646000 T 0009" 
02647000 tT 0012 
02648000 T 0014 
02649000 Tt 018 
02650000 tr 0016 
02651000 T 0017 
02652000 Tt 0047 
02653000 T 0020 
02654000 tT 0020 
02655000 ~ 6020 
02655500 T 0026 
02656000 7 0028 
02656100 fT 0029 
02657000 tT 0033 
02658000 T 0036 
“03659000 T 0036 
02660000 fT 0036 
02661000 T 0038 
02662000 7 0039 
02663000 T 0044 


& 
‘@ 
STRINGSIZE ¢ STRINGSIZE+13 02664000 
| Fi ¢ Fl = T23 02665000 
@: tT © COLL + 6 + T2 * CENDP = T)3 02666000 
END FLSE 92667000 
BEGIN 02668000 
& NCR & STRCNTCNGRs STRINGARRAYLSTRINGSIZE)s» T2)3 02669000 
STRINGSIZE «© STRINGSIZE +143 02670000 
Te T +723 02671000 
& Fi « Fi = T23 02672000 
-_ ENDS 02673000 
ENDS 02674000 
r NUMTYPE « STRINGTYPES 02675000 
_ SCN + 13 02676000 
xrT! “02677000 
@ END HOLLERITH3 02678000 
_ 86 ae, 63 i BONG: 
& 
@ PROCENURE QUOTESTRING3 02679000 
BEGIN 02680000 
REAL C3 02681000 
& START OF SEGMENT 
LABEL XIT3 . 02682000 
ALPHA STREAM PROCEDURE STRINGWORD(SeD»SKPsSZsC)3. 02683000 
@ VALUF Ss»SKP»sSZ3 02684000 
BEGIN 02685000. 
LABEL QT» XIT3 02686000 
r 01 + p3 SI « S3 02687000 
Dr ¢ DI+SkP3 OL « DI+2; _ 02688000 
TALLY © SKP3 02689000 
@ S7¢ If Sc = """ THEN JUMP OUT TO aT3 02690000 
IF SC = "8" THEN JUMP OUT TO OTS 02691000 
Ir Sc s "@" THEN JUMP QUT TO @T3 02692000 
@ IF SC = "J" THEN JUMP OUT TO xIT3 02693000 
DS ¢ CHRS TALLY © TALLY#1)3 02694000 
Gn To XIT3 02695000 
& QT? TALLY «© TALLY4#73 Sr ¢ Sy+43 02696000 
X1T# STRINGWORD «+ SI3 S ¢ TALLYS 02697000 
Sy « LOC S$ DI « C3 DS ©¢ WDS3 02698000 
e END STRINGWORD3 02699000 
® 
STRINGSIZE « O03 02700000 
] D0 02701000 
BEGIN 02702000 
If STRINGSIZE > MAXSTRING THEN 02703000 
@ BEGIN FLAG(120)3 STRINGSIZE * O ENDS 02704000 
STRINGARRAYCSTRINGSIZE] + BLANKS3 ; are 02705000 
NCR © STRINGWORDC(NCRs STRINGARRAYCSTRINGSIZE}» OF 6» C)3 02706000 
6 If C<6 THEN IF DCINPUT OR FREEFTOG 02707000 
i THEN BEGIN XTA®BLANKS3 FLOGC150)3 GO TO XIT END. | _ 02707500 - 
ELSE BEGIN 02708000 
@ If TSSEDITOG THEN IF NOT DCINPUT THEN TSSEDCBLANKSe1) 3 02708100 
@ 
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Ee mee eae ee 
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ue 
T 
T 
ne 
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0046 
0047 
0048 
0084 


00st 


0051 


0054 


0055 
0056 
0058 


‘Sosa 


0058 
0059 


0080 


0060 


NEN ee eek. aoa cae ase 


——- 


0029 
0029 


0029 — 


keetwhakie 87 


0000 
0000 
0000 
0000 


— 0000 


0000 
0000 


“ooo 


0002 
0004 
0005 
0006 
0007 


0007. 


0008 
0008 
0009 
0010 


3 


ae 
QUOTES ea 


@ 
e | e 
. IF NOT CONTINUE THEN 02709000 y 0029 
t , 02710000 t 0030 | » | A | 
@| BEGIN FLOG(121)3 GO TO XIT ENDS 02711000 T 0030 EO r) 
7 IF READACARD THENS 02712000 T 0032 ; 
IF LISTOG THEN PRINTCARDS 02713000 + 0033 Wi 
& NCR * STRINGWORDCNCR» STRINGARRAYCSTRINGSIZE JeCr6"CoC)3 02714000 7 0035 ae i @ 
: ENDS 02715000 T 0038 ae 
STRINGSIZE «+ STRINGSIZE + 13 02716000 + O03a T a = 
® ENO UNTIL C 2 73 02717000 + 0039  ) 
Aer IF C = 7 THEN STRINGSIZE «© STRINGSIZE*13 02718000 T 0044 
FNEXT ¢ STRINGSIZE} 02719000 + 004630 | 
e@ NEXT « NUMS 02720000 tT 0044 @ 
; SYMBOL + NAME « STRINGARRAYLOJ3 02721000 T 0045 
NUMTYPE « STRINGTYPES 02722000 7 “O0G6 
'@ SCN « 13 02723000 tr 0047 e@ 
Z — XITt. : ut Ac  ePis baste eee Ree cee ee ee ee ug oe ee 
2 ED OUEST TN ttt a Iara aves ieee Re le ee eee ed eee ee coe ee BD ESR OOO 8 OGMR Vo 
. 87 1S 51 LONGe NEXT Seq \ B81 @ 
©@ @ 
PROCEDURE CHECKPERIODS 02726000 t 0029 
@ BEGIN 02727000 + 0029 & 
LABEL FRACTION» XIT» EXPONENT EXPONENTSIGNS _ 02728000 fT 0029 
START OF SEGMENT auetewewen 88 
] LABEL NUMFINIs FPLP» CHKEXPS 02729000 T 0000 @ 
ee ALPHA Ss Ts Te TS3 02730000 7 0000 
INTFGER C23 “02730080 7 “0000 > PO 
@ BOOLEAN CONS 02730100 Tt 0000 @ 
A Meech IF tT * CHAR # “se =" THEN GO TO CHKEXPS 02731000 7 0000 
SCANYC4s 9s 30° Br 10» 1193 "62732000 t 0002 °° =~ 
®@ IF T ¢ EXACCUM[1] = " " THEN 02733000 T 0004 rd] 
BEGIN IF NUMTYPE # DOUBTYPE THEN NUMTYPE ¢ REALTYPES GO TO XIT ENDS 02733500 tT 0008 : 
IF T = "EF "OR T = "9 “THEN GO TO EXPONENTSIGN3 02734000 + 0011 i (asia. 
® IF T,£12t6] <$ 9 THEN GO TO FRACTIONS 02735000 7 0013 @ 
IF 7501886) $ 9 THEN - 02736000 Tt 0048 
BEGIN 02737000 t O016 ~~ 
e@ Ip S ¢ 7.01286] # "E" AND S # "D" THEN 02738000 Tt 0017 ) 
BEGIN XTA © TS FLOGC63)3 GO TO XIT ENDS. 02739000 r 0019 
EXACCUMC1).(1296) © O03 02740000 + 0028 | URS 
e I ¢ 43 GO TO EXPONENTS 02741000 T 0027 e 
: ENDS = 02742000 T 0028 
TE EXACEUNTOY MoO OPHENC BO TOIT ee go en pee. 
e FOR 1 + 0 STEP 1 UNTIL 10 00 02744000 t 0030 r 
tp T = PERIGDWORDEI) THEN 02745000 tT 0032 
BFGIN EXACCUML2) © I} SCN © 123 GO TO XIT END ~ ~O2705000 F O35” 
e GO To XITs 02747000 T 0038 @ 
FRACTION! NEXT * NUM3 02748000 T 0038 
IF NUMTYPE ZDOUBTYPE THEN NUMTYPE ¢ REALTYPES XTA © AGRIS Te on “Ear agO00 f “OORT Pe 
e FPLPs 02750000 T 0042 @ 
a eee we 02751000 7 0043 
XTA © CONVERTCFi*ct»XTA »TS)3 (02752000 + OO 7 
e c2 «C2 4 C13 02753000 7 0046 r 
; IF (F2 ¢ FNEXTXTENCCLI4F2) $ MAX 02784000 T 0047 
THEN FNEXT © FO . "62755000 ¥ “0049 ——— 
® ELSE BEGIN 02756000 T 0050 ® 
@ ts %e “yf Sg Pe ' s se @ od 


@ a Be ee a oe ’ ' + 2 e 4 
e 
NUMTYPE «¢ DOUBTYPE: 02757000. 9932 ” 
CON « TRU 02757100 00592 
& SEUACS dea: BabdUATEN CAAT TEN eRe as 02758000 Tt 0053 
FisOs+sesFNEXTsDBLOW)3 02759000 rf 0056 | 
END3 02760000 Tt 0087 
@ IF TS $ 9 THEN GO TO FPLP3 02761000 T 0057 
FL ¢ 03 . eee 02762000 T 0059 x 
IF T ¢ EXACCUM[O) # "E " AND T # "OD " THEN 02763000 7 0059° 
@ BEGIN IF SCN = 8 THEN SCN « 3 ELSE SCN ¢ 103 02764000 7 0062 
: _ GO TO NUMFINTS 02768000 7 0068 
ENDS 02766000 7 0069 ss 
e@ CHKEXP! FNEXT © FNEXT x 1,03 02767000 fT 0069 
| Fl eos. 02768000 T OO74_ 
leq 02769000 Tt 0079 
‘@ SCANXCGs 4s 39 39 20% 1093 02770000 tT 0072 
- IF SeN = 20 THEN ~ 02771000 FT 0074 : . 
: sia uw EXPONENTSIGNL.. teeta tN tet scale a edaat tase ae tel uhestaati sn Ucantotak abated cal Miata ae Pe OOO tO OF Ma: Se 
@ BEGIN IF S * EXACCUM[O] # "+ "AND S # "8 " THEN 02773000 t 0076 
ie Ie S$ = "2. " THEN YT « "1 ELSE Oota ee ee 02774000 T 0078 
BEGIN XTA ¢ S3} FLOGC63)4 SCN * 103 GO TO XIT ENDS 02775000 tT 0084 
@ SCANX(4s 4s 35 35 10% 1093 02776000 t 0088 
| = END3 fea shits Satie en! Sean 2. das ea eck 02777000 T 0090 
IF ¢€S © EXACCUME1)]),£1236)] > 9 THEN 02778000 + 0090 
e BEGIN XTA © IF S #4 BLANKS THEN S ELSE TS FLOG(63)3 GO TO XIT ENDS 02778100 fT 0092 
EXPONENT?! _ BoAles 02779000 fT 0097 
IF NUMTYPE # DOUBTYPE THEN NUMTYPE ¢ REALTYPES "03779500 Tf 0098 
e T.f1286) = "Dp" THEN NUMTYPE « DOUBTYPES 02780000 7 0100 
IF SCN = 8 THEN SCN © 3 ELSE IF SCN = 11 THEN SCN © 103 02781000 T 0102 
prenin YXTA @ AGRED RE a """“QSFS2000 F OLO7 aca 
& XTA © CONVERTCFL2CieXTA 9 TS)3 02783000 t 0107 
IF I < 0 THEN Fi © @FL3_ 02784000 T O110 — 
®@ Cl + Fi = C23 02786000 7 0113 pe 
IF IT # CABSCCI+CFNEXT CIMOISFNEXTCLI#2813))) > 63 ORCCABS(C1) = I OR 02787000 tT O114 I ECL PERD 
~  ENEX? 2 8) AND ABSCF1) 2 697 eee" 98787500 F Offa : 
@ THEN BEGIN XTA © T3 FLOGC87)3 GO TO XITS ENDS 02788000 fT 0120 
IF NUMTYPE 4 DOUBTYPE THEN 02789000 T 0123 
BEGIN 02790000 T O124 
@ Ip C12 0 THEN FNEXT © FNEXT x TENEC1L) 02791000 7 0125 
: 7 ELSE FNEXT «© FNEXT / TENC™C1I3. 02792000 T 0126 
END FLSE 02793000 T 0130 
e BEGIN 02794000 tT 0130 
Ir cL 2 0 2 __ 02795000 7 0130 ee scitte 
THEN DOUBLE CFNEXTsOBLOWs TENCC1)* TENC6O94C1 J 9Xe¢sFNEXT®DBLOW) 02796000 t 0130 
€ ELSE DOUBLECFNEXTsDBLOWs TENC@C1 J] TENLC69"C1 J 9/0 ee FNEXTsDBLOW)3 02797000 rT 0135 
If CON THEN IF OBLOWs (9833) 3 MAX,(9233) THEN  —_— 02797100 Tt 0139 2 fhe des 
rF FNEXT,£326) LSS 14 02797150 T O1402 
e THEN IF BOOLEANCFNEXT.» £2813) THEN 02797200 7 0143 
packs BEGIN OBLOW %* 03 FNEXT 8 FNEXT + 28FNEXTE282:733 ENDS _02797300 FT O145 foo 
ENDS 02798000 tT O14a 
e XIT! 02799000 T 0148 
END CHECKPERIOD3 ee _ 92800000 tr 0149 
88 1S 153 LONG, NEXT SEG 1 
@ 
] 
ee GABEL LOOPO, NUMBER S00 ore Neetu nis eae escete 2, _ 02801000 fT 0029 BAe seen 
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mee Ft 
CASE G . 
CASE 1; 
CAsEe We 
CASE 1Z: 


LABEL cas 
L418 
SWITCH cA 


LABEL CaS 
PRECEeNEYXT 
CASESTMT! 
CASE SCN 
BEGIN 
GO TO IF 
CASE12 
BEGIN 
LOOPa? 
ACR ¢ 
Accume 
oof ER 4. 
IF ADV 
le 


ELS 


ELSE I 
ENDS 
CASE2! 
BEGIN T ¢ 
CASE3! 
BEGIN T « 

IF 


Gn 


£081 
LAB 


BEGIN T « 
BEGIN T ¢ 
BEGIN T « 
BEGIN T ¢ 
BEGIN T ¢ 
IF N ¢ 
BEGIN 
NEXT ¢ 


r EXACCUM(C1]3 SCN ¢ 3 ENDS 


“LABEL LyXIT3 


L2eL3eL4oL5SeLOolL ToL Bol GoLlLOoLigeLi2eLiseolLidoLl5eolLleeLi7s 

eLi9eL2e20slL2iesBK 3 

SELeL isl QoL Jol Gol SoL Gol 7osL Sol OoL1OsLitolLi2eLi3selLi4oL15,» 
LiGeLi7sLiBelLi9eL2d»L2y 3 

El, CASE2s CASE3s CASES» LOOPs CASESTMT} 

#FNEXTeREALCSCANENTER@FALSE) 3 


OF 
LABELR THEN CASES ELSE CASE13 


ACRO3 
4) ¢ dais 


ANCECNCRs ACR» CHRO» 
CONTINUE THEN 


IF READACARD THEN 

BEGIN 

IF LISTOG THEN PRINTCARD 3 

IF ACRef33815)2ACCUMSTOP THEN 

BEGIN XTA*BLANKS$ FLOGC175)3 GO LOOPO END 3 

GO LOOP 3 

END 
ELSE IF T ¢ ACCUME1) = " " THEN GO TO CASES ELSE SCN « 4 
£E IF tT «© ACCUMC1] = * * THEN > 

60 TO CASE3 ELSE SCN ¢ 3 

FT ¢ aCCuMCi) =" _" THEN GO TO CASE2 ELSE SCN + 23 


CHARS SCN ¢ 1 ENDS. 
"3 "3 NEXT © SEMI SCN © 03 


EOSTOG THEN IF LOGIFTOG THEN BEGIN LOGIFTOG © FALSES XTA © TS 
FLAGC1O1)3 ENDS 

TO XIT3 

ag? CWE WEWE 6. BRWTT SON RET BETO RE EWOT OO 

 "<EOF> "3% NEXT © EOFS EOSTOG « FALSES GO TO XIT ENDS 

ACCUMEI] * NEXTACCI SCN © NEXTSCNS 

" THEN GO TO CASESTMTS 

TOG + TRUES 


ELR THEN GO TO CASES ELSE GO TO CASE13 


EXACCUM(E1]3 SCN «© 4 END 
CHAR « EXAGCUMCOJ3 SCN ¢ 1 END3 
“EXACCUMCATS SCN © TO ENDS = 
EXACCUME1]3 SCN © 13 

EXACCUM(2] $< 4 THEN 


NEXT «© NUMS FNEXT « NS GO TO XYT ENDS” coc cre ce re in ee 
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02810000 
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02815000 
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02817000 
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02818020 
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~ 02820000 © 


028621000 
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CASE 18: 
CASE 14: 


dag et 


OP ¢« N@=43 
PREC « IF N $ 4 THEN Net ELSE 43 
GO Tn XIT3 

ENOS 


BEGIN T © "FUNCTI"S NEXT © 163 SCN ¢ 63 GO TO XIT ENDS 


BEGIN T * ACCUME1] © NEXTACC3 
NEXTACC « NEXTACC23 SCN ¢ 63 

ENDS 

END OF cASE STATEMENTS 


IF NOT FILETOG THEN 
IF EQSTOG THEN 
BeGIN 
NEXT « O03 
IF T = "3 
CM ECKRESERVERS... ih 
IF NEXT > Q THEN GO To XITS 
End? 
IF CIDINFO*TIPECT.C12:6)1])>0 THEN 
BEGIN 
BKE NEXTeID 3 
IF NOT FILETOG THEN 


IF SCANENTER*((FNEXT#SEARCH(T))90) THEN FNEXT¢ENTERCIDINEOsT) 
ELSE IF GETCFNEXT) sCLASSSDUMMY THEN FNEXT#GETCFNEXT#2)¢BASE 3 


Ge yIT 3 
END 3 
oy CASELL@IDINFO) 3 
43 
BEGIN NUMTYPE « INTYPES NEXT © NUMS 
FNExT « BBLOW + Ci + OF 
XTA © CONVERTCFNEXT®CisXTA »TS)3 
WHiILe TS $ 9 00... 
BEGIN 
XTA © CONVERTC(FasCisxTA »TS)3 
IF (FQ © FNEXTXTENCCLI*F1) $ MAX 
THEN FNEXT © F2 
ELSE BEGIN ~ 
NUMTYPE «+ DOUBTYPE3 


XTA @ ACRO3 


DOUBLECFNEXTsOBLOWsTENCC1LI2TENLO94C1 Jo xe 
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END3 
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IF CHAR = “, "OR CHAR = "E * OR CHAR = "0 
CHECKPERIOD 
ELSE IF CHAR = "H _" THEN HOLLERITHS 

GO Tn XIT3 
END3 
Lat $2, ans aesce eet pact: Mae Bk 
BEGIN PREC « 43 OP ¢ 73 GO TO XIT END3 
L3% 
BEGIN PREC «© 43 OP © 83 GO TO XIT ENDS 0 ee 
Las 
BEGIN PREC «+ 53 OP © 103 NEXT © PLUSS Go TO XIT END3 
Mache ea peg tetas arash scan AA ant Sage data tye Inet ese tee tae eo oae at ak DY ai he ar Rael ate nae 
BEGIN. 

FNEXT © DBLOW © C1 © O3 NUMTYPE © REALTYPE3 


" THEN GO TO ee 
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02866000 T 0170 
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02871000 T 0179 
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02873000 tT 0181 
02874000 T 0182 
“02875000 + O484 
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BEGIN PREC « 93 OP + 153 NEXT © UPARROWS GO TO XIT END ELSE 


Be ath PREC « S$ OP © 113 NEXT © MINUSS GO TO XIT ENDS 
eatin NEXT © RPARENS GO TO XIT ENDS 

seerk NEXT ¢ SEMI3 GO TO XIT ENDS 

BEGIN PREC « 43 OP « 53 GO TO XIT ENDS 

peath PREC « 73 OP © 143 NEXT © SLASH} GO TO XIT ENDS 
SEGIN NeXT « COMMAS GO TO XIT ENDS ~ 

a ik PREC « 43 OP ¢ 93 GO TO XIT END3 

BEGIN NeXT « EQUALS GO TO XIT END3 

seat XTA @ T3 FLAG(O)$ GO TO CASESTMT ENDS 

BEGIN QUOTESTRINGS GO TO XIT ENDS 

TF DEBUGTOS THEN WRITALISTCFDs 3sNEXToTo® 


CHECKPERTODS 
+ EXACCUME1); 


IF a = 12 THEN 
BEGIN SCN ¢ 13 
IF N © EXACCUME2) €¢ 1 THEN 
BEGIN 
NEXT © NUMZ FNEXT © N3 
NUMTYPE ¢ LOGTYPES GO TO XIT3 
END} 


NEXT ¢ O3 


OP «© Nwi3 
PREC © IF N $ 4 THEN Net ELSE 43 
GO Tn XIT3 
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IF NEXT #£ NUM THEN BEGIN NEXT © NUM$ XTA © TS FLOGC141) ENDS 
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BEGIN NEXT «+ LPARENS GO TO xIT ENDS 
L73 
BEGIN PREC ¢ OP ¢« 43 GO TO xIT END; 
La! 
BEGIN IF DATATOG THEN IF CHECKOCTAL THEN GO TO xIT3 
IDINFO*TIPELI2]3 GO BK $3 
END3 
Los 
BEGIN NEXT « DOLLARS GO TO xIT ENDS 
L103 
IF CHECKEXPC(NCR»s NCR» T) THEN. 
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PROCEDURE WRAPUPS 
7 COMMENT WRAPUP OF COMPILIATIONS 


BEGIN 
ARRAY PRTCOE7s 03127] 


SEGDICTLOM7 0112715 
SEGOL0129)3 
ARRAY FYLESCOSBIGGESTFILENBJ$ = 
INTEGER THEBIGGESTS 
SAVE ARRAY FPBLO!102215 % FILE PARAMETER BLOCK 
REAL FPSsFPES % START AND END OF FPB 


REAL. GSFGsPRIsFIDeMF IDs ONMeFILTYPaFPBI3. 


BOOLEAN ALFS3 


REAL PRTADR» SEGMNT» LNK» TSEGSZ» Tir Ip FPBSZ3 


CEF INE 
SPNEUN® FPBSZ4> 
ENNNEFa#3 
ARRAY INTLOCLO8150)3 
REAL J3 
FORMAT SEGUSCAGs " IS SEGMENT "> Tap 


", PRT IS "s Ady ",%)3 
LIST SEGLSCIONM»NXAVIL os T1295 
LABEL Las ENDWRAPUPS 
LABEL QQ@QDISKDEFAULTS 


COMMENT FORMAT OF SEGMENT OICTIGNARY RUN TYME FOO 
DEFINE SGTYPF3 Cit2)#» %0 = PROGRAM SEGMENTS 
SGTYPC™ 184622521 = MCP INTRINSIC | 


—¥2 = DATA SEGMENT 


PRILINKFs C8t10]#, % LINK TO FIRT PRT ENTRY 


PRTLINKCS 61382%10#>s 


SGLEF = Ci811Si#s % SEGNENT SIZE° 


SGLCC = 232383108, 


OKADRE = €33815)#s % RELATIVE DISK ADDRESS OF SEGMENT 
% OR MCP INTRINSIC NUMBER 
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COMMENT FORMAT OF FIRST SEGMENT OF CODE FILE* RUN TIMES 22 2 


COMMENT SEGOLO!29) 
WORD CONTENTS 


0 LOCATION OF SEGMENT DICTIONARY 


LOCATION OF PRT 
SIZE OF PRT 


Ba oe aa 


STARTING SEGMENT NUMBER 
7-C201) IND FORTRAN FAULT DEC 
7°(18915] NUMBER OF FILES 
7033515) CORE REQUIRED/64 
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COMMENT FORMAT OF PRTS 
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SIZE OF FILE PARAMETER BLOCK 
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DEFINE 


FLGF = (034) = 140 


MODEF C432] #>» 
MODEC=42 46828, %& 


x 
% 
STOPF =(C681})4, & 
STOPCROIG7II#, OX 
LINKF SE781i) #5 & 

LINKC™7837%814#2 % 


FFF = -#¢16815)4#,% 


FFC 34823384585 
SINX = €33215)#3% 


eerie BY. STREAM | 
WORD MODE PROGRAM DESCRIPTOR 


LABEL DESCRIPTOR 


1 
0 
1 
2 
3 


3) = CHARACTER MODE PROGRAM DESCRIPTOR 


STOPPER = 4 FOR LAST DESCRIPTOR IN 
CHAIN OF SAME SEGMENT DESCRIPTORS 
‘Tr STOP = 0 THEN PRTLINK ~ 

ELSE LINK TO SEGDICT 


INDEX INTO SEGMENT DICTIONARY 


RELATIVE ADDRESS INTO SEGMENT 


POR = C37t5i8, 
Poc = Ca2téi#3 
REAL STREAM PROCEDURE MKABS(F)3 


DEFINE 


BEGIN | 
“END MKABSS 
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OCEDURE BUILDFPBCDESTsFILNUMsFILTYPsMFIDsFID»IDSZ» 


IONMsSPDEUN)3 
VALUE DEST*#I0SZ»SPDEUNS | 
BEGIN 
DI NEST . 
SI # FILNUMS ST © ST + 63 OS © 2 CHRA 2 


w 
_ 
ee id 


SI ¢ 


SIeLOC SPOEUNSSI¢S1+630S¢2 CHR3X 


“FILTYPS SI « St + 73 OS © CHR} 


MFIOS Sy ¢ SY + 13 DS © 7 CHR} 


FIO3 SI « SI + 13 DS «© 7 CHR} 
“LOG IOSZ3 Sit ¢ SY + 73 DS * GHRJ ~~ 


IONMS SY ¢ SI + 13 DS © INSZ CHR3 


BUILOFPB ¢ DY3 


OS « 


2 LIT "0"2 


ds ee 


BEGIN 
SI ¢ 
3C1F 
SI 


REAL STREAM PROCEDURE GITSZ(F)3 


F3 ST ¢SI + 73 TALLY ¢ 73 — 
SC # " ™ THEN JUMP OUT3 
ST 7 13 TALLY © TALLY + 63393 


GITSZ + TALLY; 


END GITSZ3 


STREAM PROCEDURE MOVE(F eTo8293 VALUE $2). 


BEGIN 
SI ¢ 


END MOVES — 
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03026000 fT 0019 
03029000 tT 0019 
03030000 y O0f9 — 
03031000 fT 0019 
03032000 r 0019 
— 03033000 T 
03034000 rt 0019 
03035000 t 0019 
03036000 Ff O0TS 
03037000 Tt 0019 
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030464000 tT O02, 


03045000 T 0022 
03046000 t 0022 


03048000 T 0023 
03849000 ry 0024 


03050000 y 0025 


03051000 7 0026 
03051200 Tf 0027 


03052000 + 0027 


03053000 7 0028 


ee ee nto the ace 


Sqg ye eee 


03055000 7 0029 
03056000 f 0029 
 O3057000 F 0030 
03058000 7 0030 
03059000 T 0032 
“gaosh00e 0s 
03061000 rT 0033 
~~ "03062000 fF 0034 - 
03063000 7 0034 
03064000 fT 0035 
03065000 ¢ 0036 = 


: i i H : i : 
i ! } i : H ‘ i ; : i i i 


| 
| 


| 
! 
1 
q 


u 
i 


BEGIN TALLY ¢ TALLY + 13 
T ® TALLYS St ¢ S$} SI « SI # 33 DI © LOC MAKEINTS OS © T OCT3 
END MAKFINTS 


LABEL FOUND} 
FORMAT CS, Sewccigets «Gath art tolls ce 
FILEFCA1s AGSe Xi» 


"FILE IDENTIFIERs PRT IS "pp Ady "4")p 


BLOKFCA6s XS» “COMMON BLOCK» PRT IS "5 Ads 


", LENGTH IS "» 1rSe " WORDS,")3 


Se Sa ee yo oe a 


03093000 


03094000 


03095000 


03096000 


it 4 tt 
oO 
° 
td 
o 


INTEGER PROCEDURE MOVEANDBLOCKCFROMsSIZE)3 VALUE SIZE3 03066000 tr 0036 
ARRAY FROM(0s0]5 INTEGER SIZE3 03067000 tT 0036 
BEGIN 03068000 7 0036 

REAL TseNSEGSs»Jol3 03069000 T 0036 
START OF SEGMENT suavtwwwee 
STREAM PROCEDURE M2C(FsT)3 BEGIN SIeFs DIle©T3 DS + 2 WOS3 END M23 03070000 tT 0000 
NSEGS « CSIZE+29) OLV 3908 03071000 ft 0001 
IF DALOC DIV CHUNK < T © (DALOG + NSEGS) DIV CHUNK © 03072000 T O00S ~ 
THEN DALOC « CHUNK x T3 03073000 T 0004 
MOVEANDBLOCK ¢ DaLocs 03074000 T 0007 
wi BEGIN. FOR ue O STEP 2 WHILE Jo¢< 30. AND. I<SIZ7e. pO... ..03075000_f..... 
BEGIN 03076000 ~T 0013 
MOCFROMET.£36t5JoToC4is7I1+CODECI) 3. 03077000 FT 0043 
I ¢ 1+23 03078000 tT 0018 
ENDS 03079000 t 0020 
WRITE CCODELDALOCI)3 03080000 Tt 0020 
DALOC * DALOC 443 03081000 y 0025 
END UNTIL I 2 SIZES 03082000 T 0026 
END MOVEANNDBLOCKS —. 93083000 7 0027 
92 18 32 LONGs NEXT SEG 
STREAM PROCEDURE MDESC(VLUsPRT)S VALUE VLUS 03084000 7 0036 
BEGIN ~ 03085000 T 0036 
Ol ¢ LOC VLU$ DS «+ SET3 % FLAG BIT 03086000 t 0037 
DI « PRT3 SI « LOC VLUS DS © WOSs ~ ; 03087000 T 0037 
ENO MDESC3 ° “03088000 7° O038 

INTEGER STREAM PROCEDURE MAKEINTC(S)$ 200 _ 03089000 0038 

BEGIN LaBEL LONP3 LOCAL T3 “03690000 “0038 

St ¢ S$ St + SI + 33 03091000 0039 

LooPt fr Sc 2 "oO" THEN 03092000 


03097000 7 0 


030986000 


START OF SEGMENT 


weeenthe tae 


_.9.3099000 | 
03100000 t 0044 
03101000 T 0044 


92 


90 


93 
Mag OOM ad oe he als nce 


OOO eee eee 


eats se pf oe 
i 

gr 

Tia a= 


 ] 
@ 
fs 93, 1S 27 LONG, NEXT SEG 90 
COMMENT OUMP OUT ACCUMULATED FORMAT AND NAME ARRAYS3 03102000 T 0044 = 
IF FNNINDEX # 0 THEN 03103000 7 0044 @ 
BEGIN FNNPRT ¢ PRGDESCBLOR(1sFNNPRT»OsNXAVIL © NXAVIL + 193 03104000 fT 0045 
~~ WRITEDATACFNNINDEX»NXAVIL* FNNHOLD )3 03108000 + 0049 
END3 03106000 tT 0084 ) 
If SAVESUBS > © THEN | 03106100 T 005% 
BEGIN Ti t= GETCT t# GLOBALSEARCHC™, SUBAR™)42)3 03106125 tf OOS] 
PUTCTsTLitaT1I&SAVESUBSETOSIZE))3 03106150 7 0058 r 
2h ee eee a ree 03106175 T 00S? 
T1+PRGDESCBLOR( 1523s 0sNSEG*NXAVIL@NXAVILS1) 3% BUILD TPAR AT 03106200 + O057 
FILL LSTTC#]) WITH 21¢00)98¢" % R+23 03106208 T 00606 ) 
START OF SEGMENT weattwaner 94 
94 IS "SO LONG, WEXT SEG 9O °°” 
WRITEDATAC29sNXAVILSLSTT) 3 03106210 7 0062 ) 
POPRTCCPDINX@1) C3785] 2 (CPOINX™4) e£42861),0681]¢1 3 % SAVE BIT 03106218 fT 0064 
oT Le. PRGDESCBRLOR(1.22202eNSEG ¢ NXAVIL ©. NYAVIL. ee OOF nee © A A ol 2 ole le Man amen 010. 1- 
WRITEDATA C138/NXAVILS TENDS % POWERS OF TEN TABLE 03108000 ft 0072 ) 
IF CLSTI > 0 THEN 03109000 T 0074 
REGYN 03110000 T 0078 
WRITEDATACLSTI» NXAVIL © NXAVIL41s LSTP)3 03111000 T 0075 e 
LSTA © PRGDESCBLDR(1» LSTA» O» NXAVIL)3 03112000 tT 0078 
ENDS 03113000 f 008 
IF TWODPRTX # O THEN 03114000 T 0080 r 
BEGYN | 03115000 T 0084 
FILL LSTTC#] WITH 03116000 7 0084 
0CT0000000421410010» 03117000 T 0082 @ 
START OF SEGMENT enwetnawan 95 
HeepacionLatla ecee . Os178600 F OO8y 
0072021010442215055,5 03119000 rT 0083 e 
0CT2245400320211025, 03120000 f 0083 
0€7T0106177404310415, 03421000 + 0083 
00T10250421123500003 03122000 tf 0083 eS 
Tm Bis, Bie, Napealalact tiga theater te Reg? te set tease pecan fe peaehoehae a8 95 IS_ 6 LONGs NEXT SEG 90 
T ¢ PRGDESCBLORC Os» TWODPRTXs Os NXAVIL © NXAVIL41)3 03123000 F 0083 oo 
WRITEDATAC*6Os NXAVIL» LSTT)3 03124000 r 0086 @ 
ENDS dees Sea ech on eaten = seine ae gpalee, att tag astnate tc gy cede asics, Se, saat 03125000 T 0068 
COMMENT DECLARE GLOBAL FILES AND ARRAYS3 ; “OS126000 7 O08a 
FPS + FPE ¢ MKABSC(FPR)3 03127000 tT 0088 @ 
SEGMENTSTARTS 03128000 TF 0094 _ 
F2TO0G « TRUE3 03429000 + 0094 
GSEG « NSEG3 03130000 T 0093 & 
gE a nate Sek iw se ae Bc eens yeast obtgh, andy jane 03131000 Tt 0094 
UPTCEOST EMT TLCS I ENTTOUESF: a ee Se st 
EMITL¢1)3 % SET BLOCK COUNTER TO 1 03133000 Tt 0097 @ 
EMITL¢16)3 EMITOCSTD)3 03134000 T 0097 
-EWTTLOOTS EMT TOPDCLI (23) F EMTTOUDELIT ~- “yy gR000 7 0009 
EMITLCREALCHOLTOG))3 EMITPAIR(215STO)3 03139000 7 0104 e 
I ¢ GLOBALNEXTINFOS WHILE I < 4093 DO 03140000 t 0103 
7 BEGIN oe ea me cere men semen te ae str om ciecnee scence mae tae eaeiee peered eam ata tn a me a es ~“OSTAOON fF  O10e we Dea tens px thoes ae Bw toe a eR IES 
I ¢ 1433 03142000 T 0106 e 
>= GETALLCLsINFAsINFB,INFC)3 03143000 tT O10? 
TETRA eCLASS @-PYLETO THEN 000 ro ce ce eit te OOOO 
BEGIN 03145000 fT O1%10 @ 
FPBI « FPBI + 43 03146000 T 0110 
SPREE CTNPR GADDR fc ote nee ite cen ni ET EPOOT FOLD eee 
IF (XTA ¢ INFB  ),0€1886) < 10 THEN 03148000 r 0113 @ 
ry a e ¥ = a . F Y ‘ ‘ one 4 @ 


, BEGIN | eet ceed, | 
TULF XTA © MAKEINTCXTA) > BIGGESTFILENB THEN FLAG(77) ELSE 


FILESEXTA] ¢ PRI; 

IF XTA > THEBIGGEST THEN THEBIGGEST © XTA3 
END; 

EMITOCMKS )3 

IF J # INFC | 
BEGIN FILTYP ¢ INFC eLINK3 

IDNM « " MSPFILE"COS 24924 RINFBLC30818818)3 
i T1 ¢ GITSZCIONM)3 ee 

FID * FILEINFOC2s 13. 

; MFID « FILEINFOCis y73 
/ AF. FILTYP210 AND CT¢FILEINFOC3sJI],DKAREASZ)40 THEN 
BEGIN &&% SET UP <DISK FILE DESCRIPTION>3 
SPDEUNSSFILEINFOL32J7.SENSPDEUNF 3 


sADINFO # O THEN & OPTION FILE 


$e ELSE —-ALISO-THEN 4 EL SEB. d 
XX BRORIGINAL "BLOCKING" SIZE = # LOGRECS/PHYSREC, 
ACENTIERCBXENTIER(T/(20%B) +.999999999 445) 3 
RZx Te"aREA" SIZE = # LOGRECS IN TOTAL FILE, 
%%% A=# LOGRECS PER ROW, 
BeENTIERCT/A+,9999999999 3 
%%% B = # ROWS IN FILE. 
%%X EQUIVALENT ALGOL FILE DESCRIPTION = (BIA, 
%%% THE ABOVE LOGIC YIELOS! SHORTEST ROW CONTAINING 
Z%X AN INTEGER NUMBER OF PHYSICAL RECORDS AND WHICH 
\ %%% REQUIRES 20 OR FEWER ROWS FOR THE TOTAL AREAs T. 


EMITNUM(B)S EMITNUMCA) $ 
END ELSE 
BEGIN EMITLCO)3 EMITL(O)3 
J ¢ FILEINFOCOsJ]3 & THIS ONE HAS ALL THE GOODIES 
END3 
QQQDISKDEFAULT! 

ESTIMATECESTIMATE+(C JUeCU2I6))KCIF Ate C16ti2is0 THEN Je (30812), 

ELSE A) 3 


EMITL(Jef482393 & LOCK 

EMITLCFPBI)3 = FILE PARAM INDEX 
EMITDESCLITCPRI)$ &% PRT OF FILE 
EMITL¢Je(4296))3 % # BUFFERS 


RECORDING MODE 

$ % RECORD SIZE 
‘3X BLOCK SIZE 
3 % SAVE FACTOR 


x EMTTL (Ue C381))2 & 
EMITNUM( Jel 308123) 
. EMITNUM( Je £18912). 
EMITNUM(C Jel 6812)) 
END ELSE 
/ BEGIN, / Sot sutton Pass DOG M ir tihedy Matta Lacon Pe asickscen alesis ocala te 
/ ALF «TRUES 
: IFCFILTYP*INFCeLINK#2 OR FILTYPSL2)AND INFBel1886]S9 THEN 
j —TONM © O@"FILE"( 6824224 1QINFRC 30918918) | 
ELSE 
fBeGTs 
[ALF © FALSES Shaheed tae ee Serene ee oe nm Pte 
IF CIONM «© * “*S8INFBL61146130]) = "READR © THEN 
IDNM ¢ "READER "3 
BNO ni ot Sys sal ak Sascl att pM pe att ho PUN als Fait 5 et tain 
IF IONM@"READER * OR LTONME"FYLES © THEN TONMe*CARD * ELSE 
IF IDNMS@"FILE6 ™ THEN BEGIN ITDNMe*PRINTER"SFILTYP*183END ELSE 


@eeese#eee#s#54eeeeeeeeeeee 280 @ 


» BOLE CBeCCJeFILEINFOCOsJ1)« LLANE / CTF Ae, €30812)50 THEN Ws 


03164010 ¢ 


0314900 
» 83488888 7 8HE 
03151000 T O119 
03152000 T 0123 
03153000 ~ 0125 
03184000 y 0125 
03155000 t O126 
03156000 Tf 0127 
03157000 r 0129 
03158000 Tt 0132 
03189000 + 0134 
03160000 rt 0135 
03161000 T OL37- 
03162000 tT O144 
03162005 fT O14, 
03162007 7 0144 
om OZL6204-4-.F....OF8 F...... 
03162020 yr 0152 
03162030 T 0152 
03162040 fT 0158 
03162050 7 0158 
03162060 7 0158, 
03162070 T 0160 
03162080 T 0160 
03162090 T 0160 
~“O3(62100 + 0166 
03162110 fT 0160 
03162120 7 0160 
03162129 T O160 
03163000 T 0162 
03164000 T 0168 
“OsTSIOIN TF O176 
03164045 ¢ 0170 
03164050 7 O174 
03164100 7 O17%4 
03165000 T 0176 
03166000 Tt 0178 
03167000 T Oi7a 
03168000 T 0178 
03169000 t 0179 
03170000 rt 0186 
03171000 tT 0182 
03172000 7 0183 
03173000 T 0184 
03174000 T 0385 
03175000 T 0185 
03176000 T 0186 
03177000 tT O187 
03178000 rf 019, 
03179000 7 0194 
03180000 7 0194 
03181000 T 0196 


03182000 T 0196 
03183000 T 0199 
03188000 T0200 


0200 


03184020 ¢ 0203 


@ 
= 


_—— 


HE TL¢2005 EMITLCOO0)S FILTYPel23 20 x 600 REC DISK 
J#082042942963810630336842)83005188 3681273 

ID*INNMS MFIDe"FORTEMP™3 T1I*GITSZCTONM)3 

\ GQ TO QQQDISKDEFAULTS 
END} 


T1 © GITSZCIONM)3 


1B 
jE 
Fr 


| 


FIo ¢ TONM3” 
MFID « 03 
IF DCINPUT AND ALF THEN BEGIN 
EMITLC20)3— SD TSK ROWS” 
EMITLE¢100)3 —~ % DISK RECORD PER ROW 
EMITLC2)3 % REWIND AND LOCK 
BI)3 ~% FILE NUMBER © 
ESCLITCPRI)3 x PRT OF FILE 
-% NUMBER OF EUR 
Ceusteey yb AE CORD ING MODE... 
EMITLE10)3— % RECORD SIZE 
EMITL¢30)3 % BLOCK SIZE 
( EMITLOL)3 % SAVE FACTOR 
‘END ELSE 
_ BFGIN 
/ EMITLCO)3 % DISK ROWS 
/ EMITLEO)3 % DISK RECORDS PER ROW 
/ EMITLEO)3 % REWIND & RELEASE 


EMITLCFPBI)% & FILE NUMBER 
EMITDESCLITCPRI)$ &% PRT OF FILE. 


EMYTOPOCLIT(5)3 % CALL BLOCK 
FPF*BUILDFPBCFPEsFPBIsFILTYPsMFIDsF IDs Tis IONMs SPDEUN)3 

IF RRTOG THEN WRITALISTCFILEF s3eTONMel686)eIDNMsB2D( PRI)» 
020205020) 3 


\ 
SEND 
Bes ot ea hes, hice Sete tet ote ane eh ens ve 
IF INFA.CLASS = BLOCKIO THEN 
+ BEGIN 
' IF PRTOG THEN WRITALISTCBLOKF s3>INFBsB2DCINFASADDR)» 
INFCeSIZE 2020202020) 3 
IF INFA < 0 THEN ARRAYDECCI)3 


END} yi piinetee . ~tusthes 
IF (T{ © INFA CLASS) 2 FUNID 
AND T4 $ SUBRID THEN 
REGTN % CHECK FOR INTRINSIC 
PRI ¢ Oj 
IF INFA  »SEGNO = 0 THEN 


BEGIN 
AeO}) BeNUMINTMY 3 
WHILE A+i < B DO 


EMITLO2)3 % 2 BUFFERS 
EMITTLCREAL CALF) 23 
-EMITLCIF FILTYP = 0 THEN 10 ELSE 1793 — 

\ EMTTL¢CO)s ‘3% 15 WORD BUFFERS ~ ey 

\ EMYTLEO), % SAVE FACTOR CSCRATCH BY DEFAULT) 

“ENDS 
‘N ENDS 

EMrTLe11)3 % INPUT OR QGUTPUT 
EMITL¢(8)3 x SWITCH CODE FoR BLOCK Sat Bei ak ped cutest ena es 


03184030 
031840480 é 


03184050 ¢ 
03184054 ¢ 


— 03164060 ¢ 


03184070 ¢ 
03185000 fT 


03166000 7 


03187000 7 
03187100 7 


~—OST87200 FT 


03187300 T 
03187400 T 


“O3187450 T 


03187500 7 
03187550 fr 


hh £82600. F.0 


03167680 T 
03187700 T 


03187750 T 


03187800 T 
03187900 T 
03188000 fT 
03189000 T 
03190000 Tf 


03191000 7 


03192000 T 
03193000 T 


03195000 T 
03196000 T 


~“O3L97000 F 


03198000 T 
031988500 fT 


03200000 T 
03201000 fT 


 o3202000 TO 


03203000 T 
03204000 T 


03204010 tT 0 


03205000 Tf 
03206000 T 


03207000 T 


03208000 T 
03209000 T 


03210000 T 


03211000 T 
03212000 T 


“O3213000 + 


03214000 T 
03215000 T 


03216000 fT 


03217000 T 
03218000 T 


-OF2T9000 7 


03220000 7 


95198000 7 02 


“Waq90000' y Onba 


i 
| 


1 
i 
i 
{ 
t 


1 
i 


| 


BEGIN 
| PRI ¢ REAL CBOOLEANCA4B) AND BOOLEANC1022)93 


IF IDNM © INTECPRIJ = INFB THEN GO TO FOUND3 
IF INFB < IONM THEN B © PRI,C36211) ELSE A © PRI,(36811)3 
“END 
IF IDNM ¢ INTEPRI*#(CASB)X2ePRIJ @ INFB THEN GO TO FOUND3 
XTA © INFBS FLAGC30)3 
GO TO LA3 
FOUND? 
IF CTIY*INTEPRI¢1 Je INTPARMS) 20 
ANO INFC < 0 


THEN IF T1 # INECeNEXTRA T 
BEGIN XTA + INFB 3 FLAG(28)3 ENDS 


IF CFIDeINYLOCEMFIDeINTCPRI+1), INTNUM])&0 THEN 
“BEGIN 


 ORALSTYPC) 
&MFIDEDKAC) 
&CFID © INTLOCEMFID] © NXAVIL * NXAVIL + 12£SGNOC) 
&ICSEGSZC}3 
PDINX « PDINX + 13 


Ti © PRGDESCBLDR(1,INFA eADDReOsFI0)3 | 
IF PRTOG THEN WRITALISTCSEGUS» 3» IDNMeFID»B20(T1 2020202000) 3 
IF INTCPRI4#1) < © THEN 


BEGIN nape batee 
T1 © PRGDESCBLDR(1sINTEPRI+L] eINTPRTsOsFID)3 
INTCPRY+1] * ABSCINTECPRI + 1193 


END 
ELSE IF PRTOG THEN WRITALISTCSEGUS»3sINFBs | 
INFAeSEGNOsB20CINFAsADDR) 2090202090) 3 ; 
END3 
LAY 
END; 


COMMENT MUST FOLLOW THE FOR STATEMENTS 
IF FILEARRAYPRT # O THEN 
BEGIN & BUILDING OBJECT TIME FILE SEARCH ARRAY 
J © PRGDESCBLDR(L»FILEARRAYPRT»OsNXAVIL © NXAVIL + 193 
WRITEDATACTHEBIGGEST + 1eNXAVIL*FILES)3 
END; 
XTA # BLANKS3 
IF NXAVIL > 1023 THEN FLAG(45)3 
IF PRTS > 1023 THEN FLAGCH6)3s 
IF STRTSEG = 0 THEN FLAG(65)3 
PRI ¢ O3 
WHILE CIONM ¢ INTCPRII) # 0 DO 
IF INTCPRI#1} 2 0 THEN PRI © PRI # 2 ELSE 
PON fee pcb eee el eNO al tecsnn, Me keh Oh treat) cals ai ecn hacks te, ON isles 
IF CFID*INTLOCEMFIDOINTCPRI*LI.INTNUMJ)&0 THEN 
BEGIN 
POPRTCPDIR»PDIC) « 
oaiesTyYPc] 
QMFIDEDKAC) 
ACFIO ¢ INTLOCEMFIO] © NXAVIL © NXAVIL # 1)CSGNOC]_ 
R1CSEGSZC}} 
PDINX « PDINX + 13 


‘ t t , 5 


_ POPRTCPOTR APOE)... Or a9 ih: Take : oe anna he Se 932 


93221000 T 
03222000 7 
03223000 Tf 
03224000 fT 


“03225000 T 


03226000 T 


03227000 7 


03228000 T 
03229000 T 


_ 03230000 7 


03231000 Tt 


03232000 fT 
03233000 Tf 


93898000 7 0 


03235000 T 


03236000 T 


03238000. Tt 


03239000 TF 


03240000 Tf 
03241000 T 
03242000 7 
03243000 7 
03244000 1 


03245000 T ¢ 
03246000 fT 


03247000 f 
03248000 T 


“032469000 7 


03250000 Tf 
93251000 7 
03253000 f 
03254000 T 
03255000 T 
03256000 T 
03257000 Tf 


~O3258000 + 


03259000 fT 
03260000 fT 


03261000 TF 


03262000 fT 
03263000 T 


03264000 + 


03265000 T 
03266000 fT 


03267000 7 0: 


03268000 fT 


03270000 fT 
03271000 T 
03272000 T 


"03273000 7 


03274000 T 
03275000 7. 


03276000 T 
03277000 T 


~ 03252000 t 033 


...93269000 YT 036 


e y ®@ 


fe 


ue 


ENO} . 
Ti © PRGDESCBLORCLsINTCPRI + 1)eINTPRTsOsFID)3 
PRI © PRI+23 
END} . 
FOR I «© 1 STEP 1 UNTIL BOX OO 
BEGIN EMITOCMKS)3 EMITOPOCLITCBDPRTCI}) END3 
EMITOCMKS)3 
EMITOPDCLITCSTRTSEG.(182151)3 
T « PRGDESCBLOR(120202NSEG)I 
SEGMENTCCADR#+4) DIV SsNSEGsFALSEsEDOC)3 
IF ERRORCT # 0 THEN GO TO ENDWRAPUPS 
FILL SEGOC*) WITH 


—0¢T020005, % BLOCK 
ocT220014, 2 WRITE 
0CT230015» BOAO nies tind. ator cecum exh | 
es OO SS iis MEL CONE RU ie cic sc as splecnaece ant bnaidala OniRiotaiter naeedl danboatbnerimtunesdndatosiamee-ae 


COMMENT INTRINSIC FUNCTIONS3 
FOR I « 0 STEP 1 UNTIL 3 DO 
BEGIN 
Ti ¢ PRGDESCALOR(1sSEGOC1), £36:12)209 
NSEG © NXAVIL © NXAVIL 41)2 
POPRTEPDIRsePDIC] ¢ 
ORIESTYPC] 

&CSEGOTIY, £30163) C0KAC) 

&NXAVILCSGNOC] 

R1LESEGSZCI3 
POINX © POINK + 43 


ENOS 

COMMENT GENERATE PRT AND SEGMENT DICTIONARYS 

PRTCO,G1) © POPRT(CO,0) & 63(10842:653 
FOR I « 1 STEP 1 UNTIL PDINX#=1 DO 
IF CTI*POPRICI+PDRelePOC]).SEGSZF = 0 THEN 

% PRT ENTRY ce 

PRTADR *T1ePRTAF3 
—SEGMNT TL SGNOFS, 
LNK © SEGDICTCSEGMNT.C3635)» SEGMNT,C4L97))] e¢PRTAFS 
MDESC(T1L. RELADF &SEGMNTCFFC) 

—&CREALCLNK#O))CSTOPC} 

&CIF LNK w= 0 THEN SEGMNT ELSE LNKICLEINKCY © 

&CTLeOTYPFICMODEC) 

“aScataStay sehen 

“PRICPRTADR«CI6#SJePRTADR«C41873))3 8 = OO 
SEGDICTCSEGMNT,£36#5)sSEGMNT,C4127]).PRTLINKF ¢ PRTADR3 


BEGIN 


Be wih aneg eile cata Alan Geet adh 
ELSE 

% SEGMENT DICTIONARY ENTRY 
SEGMNT © T1.SGNOF3 


BEGIN 


SEGDICTCSEGMNT «£3625 39SEGMNT COLS7J Je 0 ee 


SEGDICTCSEGMNT»( 3685 }sSEGMNT.C41!73) 
Se atl aicartpsts cit sash iit ben aieam cnc teclnetae data, BESac 
&TLEOKAORC) 
& Ticdstait) 
soe OO ON a cet Gus Aa Sa srsrecel Daa cton Rants Cae nha 
ATicisit2is” 
TSEGSZ + TSEGSZ + T1,SEGSZFS 


s ’ e e , a 


% USED FOR FAULTY OPTN ~ 


96 ‘1S 


4 


START OF SEGMENT 


03278000 Tt 0375 

03279000 7 0375 

03280000 Tt 0378 

03281000 fT 0379 
03282000 7+ 0360 

03283000 fT 0384 
03284000 T 0385 

03285000 rt 0385 

03288000 T 0387 

03289000 T 0389 
03290000 + 0392 

03291000 r 0393 

03292000 fT 0394 

weetktherene FG 

03293000 tT 0395 

03294000 Tf 0395 

oe E-1-1. 901 oT o a As \-. rn 


~03300000 r 0397 


“QSOS FMR ee 


—“Q530B{0O F O4iG 


~O33T1000 7 08230 


03314000 + 0426 


-O3317000 T 089S 


DASSSO0G Fo Ohba oe es 


35996000 F -0bag Ce 


RSSSCNG Oba ee 


~~ 03330000 T 


(03297000 YF 03958 


“O3303000 F 0803, 


4 LONGs NEXT SEG 90 
03296000 T 0395 


03298000 ft 0396 
03299000 Y 0396 


03301000 T 0400 
03302000 y 0402 


03304000 T 0405 
03305000 Tt 0406 


i 


03307000 7 0409 
03308000 fT O41% 


03309000 tT O445 
03310000 YT 0419 


03312000 T 0424 
03313000 t 0425 


03315000 fT 0429 
03316000 7 0434 


03318000 ¢ 0435 
03319000 T 0437 


03321000 t 04406 
03322000 T 0448 


03324000 y 0448 
03325000 rf 0445 


03327000 Tf 0449 
03328000 T 0435) 


1 
1 


03329100 T 04853 
03329200 7 O434 

sine Oo Re eee 
03331000 T 0456 


| 
| 
| 


e 


ae Pa eo ‘ ‘ . s . ; * es j 
EN ate oe 03332000 045 
a COMMENT WRITE OUT FILE PARAMETER BLOCKS 03335000 t 486 
FPQASZ ¢ (C(FPE.C33315] = FPS) x 8 + FPE.£30!3] + 9) DIV 83 03334000 tT 0459 
I ¢ (FPBSZ + 29) DIV 303 7 03335000 fT 0464 
IF DALOC DIV CHUNK < T1 © (DALOC #1) DIV CHUNK 03336000 Tr 044645 
THEN DALOC ¢ CHUNK x T13 03337000 Tf 0466 
SEGOC4) + DALOC; 03338000 T 0469 
SEGO[5) « FPRSZ3 03339000 T 0470 
SEG§L5).FPBVERSFeFPBVERSIONS 03339100 7 0472 
FOR I ¢ O STEP 30 WHILE I «< FPBSZ DO 03340000 7 0474 
BEGIN 03341000 7 O4?8 
03342000 fT 0478 
MOVECFPBCIJsCODECO)s IF CFPBSZ91) 2 30 _ 03343000 Tt O478 - 
THEN 30 ELSE (FPBSZ@1))3 03344000 7 0483 
WRITE CCODELODALOC))3 03345000 T 0485 
DALOC ¢ DAL OC + 13 . 03346000 I 0490 : 
“SEGOL2) « MOVEANDBLOCKCPRTsPRTS+1)3 X WRITES OUT PRT 03348000. T 0499 
% SAVES ADDRESS OF PRT 03349000 7 0495 
SEGOL3)] + PRTS + 43 % SIZE OF PRT 03350000 T 0495 
SEGOLO) + MOVEANDBLOCK(SEGDICT»NXAVIL * 1)3 % WRITE SEG DICT 03351000 Tr 0497 
SEGOC1) « NXAVIL + 13 % SIZE OF SEGMENT DICTIONARY 03352000 tT 0800 
SEGOL41] + =GSEG3 % FIRST SEGMENT TO EXECUTE 03383000 tf 0502 
SEGOC7).0C33!15) «+ FPBI3 % NUMBER OF FILES 03354000 tT 0503 
SEGOL7}.018915] * ESTIMATE «© IF % CORE ESTIMATE 033553000 yr 0808 
cle 03356000 Tf 05066 
ESTIMATE+6Q+ %%% OPTION FILE BUFF SIZES + DEFAULT BUFF SIZES. 03356100 T 0506 
_ PRTS + 5122 % PRT AND STACK SIZE 03357000 7 0507 7 
+TSEGSZ~ * TOTAL Size OF CODE 03388000 + 065804 
+ 1022 % FOR INTRINSICS 03358080 Tt 0508 
- +ARYSZ X TOTAL ARRAY SrZE0 03389000 T 0509. 
+ (MAXFILES x 28) & SIZE OF ALL FIBS . ~ “03360000 fT 0809 ~ 
+FPBSZ % SIZE OF FILE PARAMETER BLOCK 03361000 T 0510 
+ CIF ESTIMATE # 0 THEN 0 ELSE CESTIMATE + 1000)) 03361100 T 0514 
+ CNXAVIL + 1) % SIZE OF SEGMENT DICTIONARY 03362000 Tt 0514 
) > 32768 THEN 510 ELSE (I DIV 6493 03363000 7 O815 
: COMMENT IF SEGSW THEN UPDATE LINDICTs SEGOCLO) & WRITE IT 3. 03363100 fT OSi9 _ ; 
SEGOC7).f28i) ¢ 13 “% USED FOR FORTRAN FAULT OEG3 03363150 7 0519 
1F SEGSW THEN 03363200 7 0522 
ea eae BEGIN | a, BiensatO as ies pital gre ain Sed ence aoe we, CIAO SIO Y..-O529 |. i 
FOR I # NXAVIL + 1 STEP #1 UNTIL 1 DO 03363400 y 0523 
IF LINEDICTCIeIRsIeIC] = 0 THEN & INDICATE NO LINE SEGMENT 03363500 ~ 052? 
mn CINEDICTEL eI Rele IC) © #13 ® FOR THIS SEGMENT oe eee ene. 039363600 T 0530 ee See 
"SEG@CO? « SEGOTO) & CMOVEANDBLOCKCLINEDICTsNXAVIL41 ) )CTOBASE)) 03363700 T 0536 
FNDS 03363800 T 0540 
ee eT ee ee ——  WRITECCODELO1s30sSEGOC#))3 03364000 tT 0540 
| IF ERRORCT = 0 ANO SAVETIME 2 6 THEN LOCK(CODE SS ~~ CT “03965000 7 “65457 ae 
ENDWRAPUP?! 03366000 Tt 0549 
oe ee LOCKCTAPE)3 =o §RW/L TAPE FILE OR LOCK DISK (03366100 P 0849 —_ . 
IF NTAPTOG THEN LOCKCNEWTAPE,*)3 SRW/L TAPE OR CRUNCH OTSK ~~~ °°" "033966200 © 0580-7 
END WRAPUP3 03367000 T 0553 
es Pond vette aca naiateetccrhte oy ie Stele eee : 2 7 z Le IO TS 564 LONGs NEXT SFG 6 
PROCEOURE INITIALIZATIONS 03368000 Y 0506 


—* 


FLL TEST WITH OO 


BEGIN Sy « P3 MKABS * SI ENDS | 


STREAM PROCEDURE BLANKOUTCCRD»s N)3 VALUE N3 
BEGIN Dr ¢ CROJ NCDS + LIT " ") ENDS 


BLANKOUTCCROCIO)» 40)3 
BLANKOUTCLASTSEQs 8)3 


BLANKOUECLASTERRs82..z... i Sao PAS ik ce otra cea lat een te Oey tte agate ae 
INITIALNCR ¢ MKABSCCRDCOJ)€6£308451333. 


CHRO ¢ MKABSCACCUMLO3)& 2(63024523)3 
ACRO ¢ CHRO413 
ACRi ¢ (CHRIS MKABSCEXACCUM(L0O}) & 2£3084523)) +143 
ACCUMSTOPeMKABSCACCUM[11])3 EXACCUMSTOP*MKABSCEXACCUM[14}) 3 
BUFL «© MKABSCBUFF) & 2£3084533)3 
NEXTCARD © 13 
GLOBALNEXTINFO « 40933 
PDINX ¢ 143 
LASTNEXT«#1000 3 
PRTS ¢ 413 % CURRENTLY « « «© « « LAST USED PRT 
READCCR, 105 CBE*¥))F © 
LISTQG*TRUE3 SINGLETOG*TRUES CHECKTOG « thes XOEF AULT 
FIRSTCALL ¢ TRUE3S 
IF BOOLFANCERRORCTeC46813) THEN LISTOG ¢ FALSE} 
TF BOOLEANCERRORCT.C4721]) THEN DCINPUT «© TRUE 
ERRORCT ¢ O3 
IF DCINPUT THEN SEGSW ¢ TRUE 3 
IF DCINPUT THEN REMOTETOGeTRUE 3 
LIMITeIF DCINPUT THEN 20 ELSE 100 3° 
IF SEGSw THEN SEGSWFIXED «© TRUE 3 
EXTRAINFOLO»sQ7 © O & EXPCLASSCTOCLASSI3 
NEXTEXTRA © 13 
LASTMODF « 14 3 
DALOC © 13 
TYPE # wi3- 
MAP? QO] & MAP(2] © MAPLG) © MAP(7) © @f03. 
MAP(Z&I] «© 13 MAPL6)] @ 23 
FILL XRee)] WITH 020202020>0007 | 


"INTEGER R"," “i” "," REAL ", 
"LOGICAMs "Lo LM e"DOUBLE™s™ = a "COMPLE 2 "X xX" 
teccecen he ait ii we 18 gees eg LER 
Hawg mmm, Vm aN Noma mmatt, 1, Nem emmatt , hm my 


W, MINTGER™S # 


"LOGCAL%s "DOUBLE"»s "COMPLX"™S 


FILL KLASS€#) WITH 


Hee eS 


START OF SEGMENT 


98 18 


99 TS 


‘ ad 


s 


START OF SEGMENT 


COO OF ois edo eine eens 


03391200 ft 0078 
03391300 - 0075 


03391400, 


03391450 


31 LONG» NEXT SEG 
“03392600 * OOTS © 
START OF SEGMENT sewttwawee 


ee 
T 


“O07s 
0075 


03393000 Tt 007? 


? LONG, NEXT SEG 


03394000 r 0077 


03369000 7 0506 
03370000 T 0506 
eevee teehee 
03371000 tT 0000 
03372000 fT 0004 
03373000 fT 
03374000 T 0004 
03374100 7 0006 
“-83374200-—-4-. 
03375000 T 0008 
03376000 T 0014 
03377000 tT 0014 
03378000 7 0016 
03378100 T 0020 
03379000 tT 0024 
03380000 T 0026 
03381000 Tt 0027 
O3381100 7 O02 
03361200 7 0029 
03382000 t 0029 
O3383000 T 0030 
03384000 Pp 0034 
03385000 tT 0040 
-O3385100 7 0044 
03385200 tT 0044 
03385300 T 0047 
03385950 7 O0aa” 
03385358 7 0054 
03385360 T 0084 
“O3T85400 tT 0057 
03386000 T 0060 
03387000 y 0063 
03387100 fT 
03388000 T 0064 
03389000 rT 0065 
O3F390000 F 
03391000 T 0074 
03391100 T 0073 
wee tdGutaen 


97 


OO i ec dasvnee 


“Stag ee 


oi 
| 


99 


97 


Rong ee ee 


— 


WNULL "e "ARRAY “> “VARBLE'%» “STFUN "p 
*“NAMLST™, "FORMAT™s “ERROR “"» “FUNCTN >» 
"INTRSC%> “EXTRNL™s “SUBRTN"'» "COMBLK"» 
“File 3 

FILL RESERVEOWOROSLPE*) WITH ee Stee te ee 
WCALL “s"ENTR “s*FORM “,"GOTO “SH Ir ","READ 5 
"REAL "e"WRIT “e"DATA "Me"CLOS “sMLOCK "“s"PURG "“s"CHAL "ys 
"PRIN "s"PUNC "» 
Oe"Y We" AT 202020200 N"E “s00"F ",09"%E 
wh ” a" T " e"H w3 

FILL RESERVEDWORDS(#*] WITH 
"ASST ","BACK Ms"BLOC MeMCALL "e"COMM Me"COMP "eM CONT ha 
"DATA ‘,"DIME “s"O0UB ","END “,"ENDF ","ENTR Ms"EQUI Me 
MEXTe "S"FUNC "e"GOTO e" INTE “eMLOGI “e"NAME “aMPAUS My 
"PRIN *,"PROG "s"PUNC "s"READ “s"REAL MePRETU “PYREWI %y 
“STOP “s"SUBR “s*WRIT "os 
"CLOSs *,"LOCK eM PURG “, 
0200s 
"FIXe ",s"VARY "“s®AUXM ","RELE e 
TL ge 5 aod. pid, By, cele cet tadegnv/ea.d oh oy iae eae d 
"GN *,9SPACE "S"KDATA *s0e"0N *s"LEX ","INUE 
Os"NSTON We"LEPRECIS™sOs"ILeE nywy S“,"VALENCE "s"RNAL 
POTION: Me 0e GER a MeV GAe .. o SNOUL IST) 8 ROE oe. oO VS cote 
RAM Pd | "0909 "RN ","ND *sOe"OUTINE "os 
dl 2 a Bad 2 "s00"E "5050200"D *,s" ING ", 
"EM be i. | a ne 
e"ICIT " 
3 


FILL RESLENGTHLPC*) WITH 
p56 phe 298 950 h 05 0h 505 Sh 


FILL LPGLOBALC#) WITH 
4, 435 36,5 17, 35, 255 
265 312 8» 329 335 34s 37s 220 
FILL RESLENGTHC®] WITH 
Os 9, Dea 4se be 


7> Bs 4s 99 150 
30 7, Ses Als 8» 
Bs by To 7s Be 
55 Sy, 7s Ss dp 
Bs 6, 69 4e 105 Se 
5» 4s Sp OO» O» Os 5a 
98 
] 


7 69 7. 


FILL WOPC*) WITH 
MLITCt,” "» 


243 


03408000 t 0082 
03409000 Tt 0082 
START OF SEGMENT weetewanes 
103 18 
0064 
0084 


03410000 T 
03411000 f+ 


START OF SEGMENT weeeeteren. 


15 LONGs NEXT SEG | 


100 


97 


101 


Gao ee 


a (03395000 tT O77 |. 
START OF SEGMENT #teeeteten 
03396000 T 0078 
03397000 tT 007° 
03398000 T 0078a 
100 18 £3 LONGse NEXT SEG 
_ 03399000 7 0078 
03400000 tT 6079 
START OF SEGMENT wewtttnten 
_,03401000 T 0080 
03401100 T 6086 
03401200 Tf 0080 
03401300 tT 0080 
~ 401 418 ~~ 30 LONG, ae SEG 
03402000 T 
03403000 T 0084 
START OF SEGMENT saeeteenan | 
03404000 7r 0082 
93405000 Tt 00862 
03406000 T 0082 
03407000 rt 0082 
03407100 F 0082 _ 
03407101 Tt 0082 
03407102 1 0080 
93407303 7 0082 
03407200 T 0082 
03407300 rT 0082 
_ 934074800 7 0082. 
03407500 ft 0082 
03407600 ft 0082 
03407601 7r 0082 
“03407602 T 0062 
03407990 YT 008 
102 1S 84 LONGs NEXT SEG 


97 


103 
97 


104 
ete 


03441100 7 0088 
104 1S 18 LONG,» NEXT SEG 
03412000 f 0085 
03413000 7r 0086 
START OF SEGMENT sanetoatan 
~ 03414000 + 0087 
034383000 ft 0087 
03416000 tT 0087 
03417000 tf 0087 
03418000 7 0087 
03418100 FT 
03418101 7 0067 
03418990 7+ 0087 
108 1S 42 LONG, NEXT SEG 9 
034149000 y O08? 
03420000 7 0088 


i |) enema, 


GO esnetees 


LO ieee one ae 


1 


Su = oh ee a Batata hein START OF SEGMENT weatedeeen 106 
WOPDC%s"DESC, 03421000 Ff 0089 - 
162"ADD “» 17e"AD2 “es 18e"PRL se 03422000 7y 0089 


a 


LOs"DEL %s 142"NOP "s 125"XRT "> 
19/"LNG "s 214"GEQ Ms 22,"BBC “» 2beMINX Ms 35+"LOR "Ne 374"GTR Me 03423000 7 0089 
3B2"AFC Ms 39s"RTN >» 4Oe*COC “> 4Bs"SUB "» 492"SB2 “y 64s"MUL Me 039420000 T 0089 
65e"ML2 %s 67s"LND >» 6Be"STO "> 69e"NEQ "» 7OR"SSN "> 7Le"XET Ms 03428000 7 0089 
TRIS ie ie ho ence Meer? gece tie ot ethetaneiad 1 vn Sa olane gh gard: 03426000 t 0089 
1285 "DIV "e129s"DV2 %41305"COM Mr131e"LOV "o132e"SND “o133,"XCH Me “03427000 + 0085 
L3Gs"CHS "s1675"RTS “s16Bs"COC "S197e"FTC “o260e"LOD “s261e"DUP "> 03428000 rt 0089 
: 27B8s"GRC "s280e"SSF "s294e"GFC " »3220"2Pt "s384e"IDV "s453e"F TF Ms 03429000 T 0089 


oo gba aaggo-e~ OOme 
03431000 r 0089 
03432000 y 0089 

---5033000 + - ODES 

132 LONG», NEXT SEqg 97 

03433100 7 0089 


5152"MHS ",532e"ISD "2539s" EQ "55345" BBW *,5R8e"ITSN “,S49e"LSS Mp 
SSOs"BFW "s5814e"EQL "s582e"SSP "+SB4e%ECM "H7TO9H"CTC “e790"GBW “e 
BOGs"GFW Ms896e"ROV "A965e"CTF Me 
102351023» 102351023410235 1023510235 1023510234102351023, 1023) 
196 IS 
FILL TIPEC#) WITH. 851 >» Tos -F1+0c13000000000-214720734“4» 


fe scuangaemeas su samannepe ie youn ge tml te ne oo tc 


1 


03433110 YT 0094 
03433120 7 0091 
03433130 Tt 0094 
64 LONGs, NEXT SEG 97 
(03434000 7 0094 
03435000 rT 0094 
START OF SEGMENT ewetetetese 108 
03436000 7 0092 


6067 399900000406 7100099 900,~5 501316090857 Set Sette, 
— 5c0errd 00000) .-¢  3COCT 300000000) 09 o=TOr™{are L300 4 
“15471005164 8(0CT300000000)+"17 +" 6271827199 "20521 3 
on a> 2 107 1S 
FILL PERIOOWORDE*] WITH 7 | 
“FALSE ", "TRUE "» “OR *, AND *, "NOT ", 


LT ", "LE ", "EQ “s "GT "s “GE "ss "NE M$ 


198 1S if LONG, NEXT SEG 97° 
ACCUM(O} © EXACCUM[O] ©« "5 "5 03437000 r 060092 
eee INCLUDE t@ "NCLUDE” & "I"C684ot6)s 03437100 tT 0095 


FILL TENC*) WITH % POWERS OF TEN TO PRT 22 03438000 7 0097 


_ START. OF SEGMENT seeteteees. LO 7 000 


t i 1 } 
i fi : 


—_ OCT4141000000000000 =» OCT 1131200000000000. 0€T1121440000000000, 03439000 T 0098 
ee ae START OF SEGMENT #eewetwwaw 109 — 

0€T1111750000000000, 0C71102342000000000. 06T1073032400000000, 03440000 YT 0099 
00T1063641400000000, 0c¢71954611320000000, 0CT1045753604000000, 03441000 tT 0099 
0671037 346845000000, Bee e eee eee eee eee ebecerctccee -- - paeeg000 tT < 0099 
0070011643245121900, 0070022214146345200, 00T0032657 442036440, 03443000 ¢ 0099 
007004343277 2446150, 0070084 344571157602, 0¢670065432127413542, 03444000 7 0099 
OcTOO7TE740SS553(6473, OQECTOLL{LOS3IO7T{OSOSS{, ~~ OETOYSL 265707574265, “Oyaagso00 7 0099 
0670131543271153342, 0¢70142074147406233, 0¢T0152513201307702, 03446000 7 0099 
007TN163236041571663»5  O¢670174105452130240,  0670205126764556310, 03447000 Tt 0099 
0070246 354864711772,. 06792310047736374837, OCTOSGTZ06 70475346, ~~ BABOON F OOSG 
0CT9251447626234640, 00670261761373704040, 0010272356132665012,5 034a9000 7 0099 

—0670303051561442215, -0079313664115752660, 0670324641141345435, 034890000 7 0099 
OCTO336011371656744G5 ~~ OETOS47HL 3670306535, ~~ s GETOSST YL 3{66G625006, OSG S OOO Ff O09 Ge 
0070371360241772234, 007040 1654342370703, 00704 12227375067064, 03482000 y 0099 
OCTN4226759743047015 0070433454553366061, 06T0444367706263475S>» 03453000 7 0099 
00T04554656677404015,  O¢704670032457905S0, “ HCTOSOL060GTI731664,  ~ = OFHSHOO0 TF COGG es 
00705112745743202461,5 00T0521553637400312,5 00T0832106607305374, 03485000 7r 0099 

— 00T0542530351166673, 00T905532564434244525 0070864132154331565, 03486000 7 0099 
CCTA5S75160607420133, OcTO6064147513541407, ~~ OCTO6ST0{20{436, (50, ~~ OFas7000 F OVIH” 
0C6T0631214417455344e 0€670641457593370635>» OCT0651773450267004, 03458000 Tt 0099 
00T0662372362344605, OCT0673071087035747, 007070370727 2645341> 03459000 y 0099 
0CT07146714514166315 00T0726047403722377,  $G¢670737464304707077, 63460000 7 0099 
00707514 3755660707)1, 0010764 367542350710, OCTO77 (665435043079, 034613000 r 0099 
0CTH000000000000000» = acto000000000000000» = 0C70000000000000000- 03462000 T 0099 
0CTH000000000000000s 0€T0000000000000060> OCT06000000060000005 © —— 03463006 T 0099 
06TH000000000000000» 0CT0000000000000000>» 00T0000000000000000, 03464000 7 0099 


: : 3 i 
t : t i 


T 00 00000» TOO ) T9000000000000 0 09 
GErRBBsBasaeccosec, — FEFBEgvBEbaeEEeGEeG, —GeFBESCEsseoseoccens —-««B38SE888 ¥ 8883 
0CTN000000000000000» OCTO0000000000000000» OCT0004000000000000» 03467000 tT 0099 
0¢70001000000000000, 0¢T0001720000000000, OCTO004304000000000, | 03468000 7 0099_ 
0€10007365000000000, 0¢70005262200000000,» 06T0004536640000000,4 03469000 rt 0099 
0070001666410000000,s 0CT0000244142000000. 0¢T0000315134400000, 03470000 T 0099 
0670000400363500000, 0CT0000450046042000, — OCT0006562057452400, 93471000 7 0099 | 
0070004316473365100» 0070005402242262320» 00T00067026847370045 03472000 7 0099 
00700044634 30126605, 0070007600 336154346, 06T0001540425607437, 03473000 7+ 0099 
0070004070533151347>. 0€T0005106662003641»  —0CT0005033043640464s — 03474000 T 0099 
00TN002941654640575, 0070002712207752734, OCT0001474678745504, “O3479000 ¢ 0099 7 
00T00020140553370514, 00T0004417070626663>» OCTO00752270677 4440, 03476000 rT 0099 
OCTQ0O3447470573550» —0C70006361406732502s  — OCTOOOSOOSS710521225 = = «—«. 3477000 T 0099 
0CTN006207 4272645475 007000 1650755441700, 0010006223480 372260, 03478000 7 0099 
0CTN0076700024707 33» 00T0007646003207120» 06T0005617404050743» 03479000 Tr 0099 
0¢679001163305063137s5 QCTOOO74204662777715 | OCT0001732422375777,5 | 03480000 7 0099 
06700023211 270753877, 06T000 3005354714677, 0670005606650100057, 03481000 7 0099 
ocTn007 450422120072, 007T0003002526544103, 0¢700016032548275130, 03482000 7 0099 
0¢70004444427354356,  —0¢70007175155247454, 0€T0007034440521363. = 93483000 r 0099 
0010007664351 264566>» 00T0003641443541723 0€6T00046117544723103 03484000 7 0099 ~~ 
FILL INLINEINT£*#) WITH & FILLS MUST BE IN ASCENDING ORDER FOR 93484100 7 0099 
2 Baudet Ties » dey ia lees: very kettle titans jes suite uals SEctnasie apt ncllacdaiandatela ne On Bak AO ON GS INE RSE G. - oF 2 = a! 
% BINARY SEARCH IN FUNCTION AND DOITINLINE, 03484120 ¢ 0100 
® INLINEINTOCI37,0181] * 41 ONCE CODE FOR INTRINSIC 03484122 T 0100 
BN then f cae Go en HAS BEEN EMITTED INLINE. 03484424 T 0100 
Z INLINEINTCIJ.CAMLOJsINDEX INTO "NO WORD OF THE = ~ O3484926 F OL100 © 0 0 
% CORR ENTRY IN INT, 03464128 T 0100 
a . ce ean gee pg INLINEINTOIT £0123 36]"8NAME OF INTRINSIC, os 03484130 rt 0100 wees 
ReeaneeeeFIRST FILE MUST BE NUMBER OF INTRINSICS weatutwcatweaeeeee 03484440 ¢ O00 Aig est, 
34, 034842360 7 0100 
Beane, he eAaetigt iba tuade enh. Gs ete eeee ae oe ee | START OF SEGMENT weaeeeueen 4110 
: “eB0caE fe ae ae a een ae ne concen ces enmity a BA gE og pees een 
"OOAIMAG "s 03484200 7 0104 
OOAINT Me P 03484220 F 0104 | 
"OOAMAXO "yp 03484224 T 0104 
"OOAMAX, "s 03484228 fT 0104 
eee — MQOAMING "a _ _ ; 03484232 7 080g 
"OOAMING "s 03484236 Tf O104 
"OOAMOD ">s 03484240 fT 0103 
si :  MOOAND Ma. : . 93489260 7 0101 
"OOCMPLY >» 03484280 7r 0104 
"OOCOMP: ", 03484300 fT 01061 
ite ats OOCONIG Me - ‘ ee 09484320 7 0409 
"OODABS ", 03484340 tT 0101 
"OODBLE "» 03484360 fT O104 
ee ete ene ee "OODIM "ts ae one Sa eee ta 93484380 T  OM0g 
"OOOSIGN ">» 03484400 T 0104 
"OOEQUIV "es 03484420 rf 0101 
eect eae ee ee eke een OCR ORY ye ihe lier em ta neat tetae tt Sore al shoal d seaplane! whee hoe te Te Sd ate ai ich) cet OSA M OO: GO LOGS 2 oo 25 he inten ee 
"OOTABS "ys 03484460 y 0104 
"OOIDIM »s 03484480 7 O104 
SO ee SOOO Te ce hr as 2. 6, i 3 Pacers Bs : dln cctah teh poetic wen hg tee dine eee OW OO OTe ONO Tees tte hone Ln Seo: 
"OOIFIX "es 03484520 Y 0104 
"OOINT "» 03484540 7 0104 
cer "OOYSIGN "s : yas 7 voce 99484560 T0902 
"OOMAXO "> 03484564 F 0104 
"OOMAX1 "ys 03484568 T 0104 


i Hl H : 
i i 


® © 


"QOMINO 
"OOMINY 


"OOMOD 
"OOOR 
"OOREAL 
"OOSIGN 
"OOSNGL 
"OOTIME 
0 3 


23323233332 
ywewe ee ee 


FILL INT C*) WITH 


COMMENT THESE NAMES (1*ST WORD OF EACH TWO@WORD ENTRY) MUST BE IN 
ASCENDING ORDER FOR BINARY LOOQKUPS. 


’ 


% 


THE SECOND WORD HAS THE FOLLOWING FORMAT? 


ef181) = O IF THE INTRINSIC DOES NOT HAVE A PERMANENT PRT 


LOCATIONs OTHERWISE @ 1¢ 
SEE C4836) BELOW, 


WRAPUP, 


MAY BE RESET BY 


ef231) @ sINTSEEN w 1 IFF INTRINSICS FUNCTION HAS BEEN SEEN, 


«(631 5 sINTCLASS = CLASS OF THE INTRINSIC, 
.0923) = ,INTPARMCLASS # CLASS OF PARAMETERS, 


£1286) = eINTINLINE # INDEX FOR DOITINLINE IF #02 OTHERWISE 


DO IT VIA INTRINSIC CALL, 


»€2436) = sINTPRT = FIXED PRT LOCATION. SEE eliti) ABOVE, 


0f3086) = sINTPARMS = NUMBER OF PARAMETERS REQUIRED BY THE INT. 


0036812) 3 eINTNUM & INTRINSICS NUMBER, 
THE FIELOS «f3%3] AND 21636] ARE SO FAR UNUSED, 


110 1S 


~ 03486020" 


— -03486050— 


eee ee eC eC ee Pee eT Tee Tee Tose ee TTT LIT Te Lee ec Ltt eT SET TT tt tt ts) ee 
LS 


Seeateeee 
Seeakiwes 


"ABS "> 


"AIMAG %» 
"AINT %s 
"ALGAMA"» 
"ALOG1ON, 
"ALOG Ms 
*AMAXO Ws 
"AMAXY tt, 
"AMINO Mo 
“AMINY os 
"AMOD Ws» 
"AND. Ma. 
*ARCOS "5 
WARSIN tp 
NATAN2 to | 
“ATAN ts 
"CABS ty, 
"CCOS ts 


HOENB as 


"CLOG >» 
"CMPLX tts 


—*COMPL ny 


"CONCAT» 


* IF YOU ABD AN INTRINSICs BE SURE TO CHANGE NUMINTML 
* AT SEQUENCE NUMBER OOLS52i1.eseeee THANK YOU, 


0¢T0033010000010007, 


0¢7T0036020000010074,» 


0¢T0033030000010054, 


00T0033000000010127>» 
0¢T0033000000010103, 


_0¢6720330000350100175 sss 


0cT0031250000000031, 
00T0033250000000031, 


0€700312500000000325 2. 


00T0033250000000032, 
00T0033040000020063, 


0¢T0033050000020130, |. 


00T0033000000010117» 
Ee a 


0¢2036000085010053. 
0¢70066000000010110» 


QcTOO66000000010100, 


00T0066000000010102» 
0€6T0063060000020075, 


“OCTOO330700000T 01325 © 


0¢7T0033000000050140, 


Wweaewkne 
TOS Te PCS Tee eee Ce ETS Te TTS CSS TETAS TESTS ITIL TVET TOLL TTI TririiiitTT ae 


: 


Serta 

B4AS76- 
peasaeec 
03484600 
03484620 
03484640 
03484660 


03480680 


03484990 


36 LONG 
— 03485000 © 


03486000 
03486010 


03486030 
03486040 


03466055 
03486060 


03486070 — 


03486080 
03486090 
(03466100 
03486110 
03486320 


03486130. 


03486140 
03486144 
03486145 5 
03486146 
03486147 
O3aas Tae 
03486149 
03487000 


~ START OF SEGMENT «+ 


03488000 
03489000 
03490000 
03491000 
.03492000 
03493000 
03494000 
03495000 


~~ 03496000 — 


~ 03499000 


~"O3S507000- 


03497000 
03498000 


03500000 
03501000 


03501500 
03502000 
03503000 


~  O39504000 © 


03505000 
03506000 


03508000 


At tt te 


Se Mee Neen Bee Meee Be Bee | 


aaa 


— 


7 
T 


T 
T 


le ee tion lies toes Be Be 


310} 
0104 
0104 
0104 
01014 
0101 


O10y 


0104 
NEXT SEG 
“O10y 
0104 
0101 


-otor 


0104 
0101 


O04. 


O104 
0104 


-OT04 


0101 
0101 
“OT01 
0104 
0104 


0101 


0101 
0104 


0101 
0101 


~O104 


0104 
0104 
Teer ea te 


+ Ot6s 


4 ones 


sage ee 


ry 


j i 
! 
i 
' 
1 
| 
i 


"CONJG 
"COSK 
"cos 
"COTAN 
"CSIN 
"CSQRT 
"OABS 


Ws 
Ws 
We 
W» 
ae) 
"»p 
i 


"DATAN2%s 


"DATAN 
"DOBLE 
"ocos 
"DEXP 
"DIM 


“» 
Ws 
 » 
"»p 
Ws 


"DLOG10%» 


"OLOG 
"DOMAX 1 
"DMINY 
"DMOD 
“OSIGN 
"OSIN 
"DSART 
"EQUIV 
"ERF 
"EXP 
"FLOAT 
"GAMMA 
"TABS 
“IDIM 
"IDINT 
"IF IX 
"INT 
"ISIGN 
"JERR, 


Ws 
We 


Wp 


",FBINBY» 
" FINAM*» 
" FONAM%s 
", FREFR>» 
“ FREWR*» 
" FTINT» 
" FINING>» 
" FTNOUts 
"FTOUTs» 
" LABEL» 


"MATH 


Wp» 


" MEMHR » 


"eXTOL 
"MAX 
"MAX 
"MINO 
"MING 
"MOD 


OR ees: 
"REAL 


"SIGN 


"SIN 
"SNGL 


Ws 
W» 
"» 


SSINH ts 


06T0066110000010076, 
0¢70033000000010121, 
0670033000000010015, 
0¢T0033000000010112» 
00T0066000000010106, 
0¢T0066000600010124, 
0¢70055010000010052, 
0¢T0055000000020115, 
0¢72055000041010113» 
0€T0053120000010062, 
0¢T0055000000010107, 
0¢72055000047010077» 
0¢70033100000020072, 
0¢T0055000000010104, 
0072055000042010101, 
0070055000000000066, 
0cT0055000000000067, 
0€72055000046020065, 
0¢T0055130000020071, 
007 2055000043010105, 
0672055000050010123, 
06T0033140000020133» 
0€70033000000010125, 
0€T2033000033010020, 
0¢70031150000010060, 
06T2033000040010126, 
0¢T0011010000010007» 
0¢70011100000020072, 
0¢T0015240800010057, 
0¢T0013030000010054, 
06T0013030000010084, 
0¢T0011160000026070, 
0€T2000000030000134> 
0¢T0000000000000160» 
0cT0000000000000154, 
0¢T0000000000000155, 
0¢70000000000000146, 
0670000000000000153, 
0cT0000000000000050, 
oOcTod000000000NNISS, 
0¢T0000000000000157, 
0670000000000000081, 


OcTO000000000000NA1.s ~~ 


00T0000000000000085» 
0¢T0000000000000164, 
0c7T0000000000000056, 


0cT0043250000000135, 


0070011170000020137, 


--0€T00332000000201 31» 


0¢6T0036210000010073, 
0¢70033160000020070, 


06T2033000034010014, 
0¢70035230000010061>, 


“0¢T0011250000000135, 


0€70011250000000136, 0. 
0¢T0013250000000136, 


9670033000000010120» 


03509000 T 0103 
03510000 7 0103 
03511000 Tr 0103 
03512000 F 0103 


03513000 tf 6103 


03514000 tT 0103 


03545000 7 0403 


03516000 T 0103 
03517000 T 0103 
03518000 T 0103 
03519000 tT 0103 
03520000 T 0103 


..93321000 F 0103 


03522000 7 0103 
03522500 T 0103 
03323000 7 0103 
03524000 t 0103 
03525000 T 0403 
03526000 T 0403 
03527000 T 0103 
03528000 T 0103 
03529000 tT 0103 
03530000 tT 0103 
03331000 7 0103 
03532000 T 0103 


03533000 rT 0103 


03534000 ft 0103 
03535000 ft 0103 
03536000 T 0103 
03337000 rt 0103 
03538000 T 0103 
03539000 T 0103 
03540000 fT 0103 
03540500 T 0103 


03841000 T 0103 


03542000 T 0103 
03543000 Tr 0103 
03544000 tT 0103 
03545000 fT 0103 
03346000 T 0303 


03547000 T 0403 — 


033548000 fT 0103 


03549000 T 0103 | 


03550000 T 0103 
03550500 T 0103 
03551000 r 0103 


03552000 T 0103 9° ~~ T 


03553000 r 0103 


one oe 93554000 7.01038 2 


03555000 rf 0103 
03556000 rT 0103 


93537000 7.0103 002 


03558000 fT 0103 
03559000 T 01063 


-93560000 F 0103 0 


03561000 TF 0103 
03562000 T 0103 


1 
| 
| 
| 


"SQRT s 0¢672033000031010013>, 

"TANH s 0C€T0033000000010122, 
"TAN *»s 006720330000360101115 
"TIME » 0¢70031220000010064, 
03 


BLANKS* yNLINEINTCMAX#O) 3 

FOR SCNel STEP 1 UNTIL BLANKS DO 
BEGTN 
EQVID¢INLINEINTESCNIS | 
INLPNEINTESCNI ¢INTXOMAX41 ; 
END 3 

INTID.SUBCLASS ¢ INTYPES 

REALTO.SUBCLASS «© REALTYPES 

EQVID © *,FQ000"3 


LISTID += ".LIO00"S 
BLANKS « " "3 
ENDSEGTOQG «* TRUBS 
SCN ¢ 73 


MAX ¢ REFALCNOT FALSE).£9!23933 
SUPERMAYCOMe128x(MAXCOM41) 3 

SEGPTOG ¢ FALSE3 SINHIBIT PAGE SKIP AFTER SUBROUTINES 
END INITIALIZATIONS © 


ALPHA PROCEDURE NEEDCTs, C)3 VALUE Ts C3 ALPHA Ts C3 
BEGIN INTEGER NS REAL ELBAT3 


REAL X3 
LABEL XIT» CHECKS 
ALPHA INFAs INFBs INFCS a 
COMMENT NEED RETURNS THE ELBAT WORD FOR THE IDENTIFIER Te 


IF THIS IS THE FIRST OCCURRENCE OF T THEN AN INFO WORD IS BUILT AND 


GIVEN THEN CLASS cs 
ELBATeCLASS © C3 
XTA « T3 
IF C $ LABELIO THEN 
BFGIN 
IF N « SEARCHCT) = 0 THEN N © ENTERCELBAT» T) ELSE 
IF ELBAT © GETCN),CLASS = UNKNOWN 
THEN PUTCNs GET(ND&CETOCLASS)) 
ELSE IF ELBAT # C THEN FLOG(21)3 
GO TO XITs 
EnD3 
IF N ¢ SEARCH(T) = 0 THEN 
BFGIN- 
IF N © GLOBALSEARCH(T) # 0 THEN GO TO CHECK? 
N ¢ GLOBALENTERCELBATs T)3 
wf TOOT as ce chasse ult ad 3 Ne ath om ne 
ENDS 
GETALLONs INFAsINFBs INFC)3 
IF INFAsCLASS = DUMMY THEN BEGIN N & INFC,BASES: 
IF BOOLEANCINFA FORMAL) THEN GO TO CHECKS 
IF INFASCLASS # UNKNOWN THEN 


WHILE INTCMAXIZEQVID 00 MAX#MAX42 3 


111 1S 


97 IS 


03563950 7 


03563000 
03563010 
03563020 
03563030 
03563900 


as 
T 
T 
T 
T 


169 LONG» 


03563910 
03563920 
03563930 
03563940 


03563960 
03564000 


03565000 7 


03566000 
03567100 


03569000 
03570000 


03571000 


03571100 

03571300 

03872000 
135 LONG 


ue 


03568000 T 


T 
T 
T 
T 
T 
’ 
T 
T 
7 
T 
T 
T 
T 
T 
Pp 
T 
r) 


0103 
0103 
0103 
0103 
0103 
NEXT SEG 
0103 
0104 
0109 
0109 
0113 
0116 
0118 
0126 
0122 
0122 
0123 
0124 
0126 


01260 


0128 
0130 
0131 
NEXT SEG 


“O3573000 f 0506 


03574000 


START OF SEGMENT 


t 


(GO TO CHECK ENDS 


~~ 03595000 


? 


03586000 | 


~ 03589000 


“03574100 fF 


03575000 
03576000 
03577000 
03578000 
03579000 
03580000 
03581000 
03582000 
03583000 
03584000 
03585000 


03587000 
03588000 


03590000 
03591000 


03892000 © 


03393000 
03594000 


03896000 
03596100 
03597000 
03598000 


T 


0506 


wweethatnn 


A tt tl 9 ee ee el 


0006 
0000 
0000 
0000 
0000 
0000 

“06006, 
0004 
0002 


— 0003 > 


0003 
0007 


0009 


97 


6 


112 


a? 


ca) 


i 


@®e5seeeee8eeeeeee%eee8e00800e0 & ®@ 


BEGIN 
tf N ¢ GLOBALSEARCH(T) # 0 THEN GO TO CHECKS 


FE, BAT.SUBCLASS © INFA,SUBCLASS3 
N © GLOBALENTERCELBAT, T)3 
6n TO XIT3 
ENO3 
PUT(Ns INFA & DUMMYCTOCLASS))3 
ELBATeSUBCLASS ¢ INFA »SUBCLASS3 
IF X © GLOBALSEARCH(T) = 0 THEN X ¢ GLOBALENTERCELBAT» 
PUTCN+2 INFC & XCTOBASE])3 N «# X3 
CHECK? 
INFA © GETCN)S 
IF ELBAT © INFA  ,CLASS = UNKNOWN THEN , 
BEGIN INFOCNeIRsNeICI.CLASS © C3 GO TO XIT ENDS 
IF ELBAT # C THEN 
IF ELBAT = EXTIO AND 
CC = SUBRIO OR C = FUNIO) THEN 
INFOEN.IReaNeICIeCLASS + C 


ELSE IF CELBAT=SUBRID OR ELBAT= FUNID) AND C & EXTID THEN. 


ELSE FLOGC21)93 
XIT! NEED © GETSPACE(N)3 
XTA « NAMES % RESTORE XTA FOR DIAGNOSTIC PURPOSES 


END NEEn3 


INTEGER PROCEDURE EXPR(B)S vALUE B3 BOOLEAN BS FORWARDS ~ 


PROCEDURE SPLITCA)3 VALUE A} REAL A3 

cco | a nr rec ae 
EMITPAIRCJUNKs ISN)3 
EmMITDC4Os, DIA)3 
EMITNC18» ISO)3 
EMITDESCLITCAD3 
EMITOCLOp)3 
EMITOPDCLITCJUNK)3 
EMITPAIR¢C2552CHS) 3 
EMITOCLNND)3 

END SPLITS | 


BOOLEAN PROCEDURE SUBSCRIPTS(LINK»FROM)$ VALUE LINK»FROMS 
INTEGER LINK» FROMS 
BEGIN INTEGER Ir» NSUBS» BDLINKS 


LABEL CONSTRUCT» XIT3 
REAL SUM» PRODs SOUNDS 
REAL INFAsINFB,INFCS 
REAL SAVENSEGsSAVEADR 3 
INTEGER INDXS 
REAL INFOS 
BOOLEAN TOG» VARF3. 
REAL SAvIT3 
DEFINE SS # LSTT#3 


~ 03606000 


~ 03608000 


112 18 


03599000 


03600000 


03601000 
03602000 


03603000 


03604000 
03605000 


03607000 
03607100 
03609000 
03610000 


03611000 


03612000 


03613000 


03614000 
03613000 


03616000 


03617000 
03618000 
03618100. 
03619000 


77 LONG 


— 03620000 


~ 03623000 


03629000 


03621000 
03622000 


03624000 
03625000 


03626000. 


03627000 
03628000 


03630000 


03631000 | 


03632000 
03633000 


03634000 
START OF SEGMENT 


03635000 


~~ 03636000 


03637000 
03637100 


03637200 


03637300 


03638000 


03639000 
03640000 


° oes a a ee 


nts ates oe a ae 


003 
003t 


0033 
0035 


“8097” 


0037 
0037 


~ 0039 


0044 
0045 


Ona” 


0049 
0050 
0052 
0057 
00548. 
0059 
0064 
(0064— 
0069 
00714 
0072 
0073 
NEXT SEG 


0513 
0513 


ag 


REWER ES 


113 


6 


te 


IF DEBUGTOG THEN FLAGROUTINEC™ SUBSC™s"RIPTS "sTRUE ) 3 


SAVIT ¢ ITS) 
LINK © GETSPACECLINK)3 


GETALLCLINK,INFAsINFBsINFC)3 


IF INFAeCLASS # ARRAYIO THEN | 7 
BEGIN XTA © INF®S FLOGC35)3 GO TO XIT ENDS 
NSUBS ¢ INFC,NEXTRAS3 
IF FROM = 4 THEN | 
BEGIN IF NSUBS GTR SAVESUBS THEN SAVESUBS 3& NSUBS) 
1F NSUBS GTR NAMLISTCO} THEN NAMLISTLO] t= NSUBS3 
NAMLISTCNAMEIND),C428) t= NSUBS3 
INFO 32 GETCNEEOC*,SUBAR™"sBLOCKID) ).ADDR3 
ENN 
BOLINK + INFC.ADINFO=NSUBS413 
VARF © INFC < 03 
FOR 7 « ¢ STEP 1 UNTIL NSUBS DO 
BEGIN actelete daca ae ee ae Oe 
IT#IT+#13 SAVENSEG*NSEGS SAVEADReADR 3 
Ir EXPRCTRUE) > REALTYPE THEN FLAG(98)3 
Ir ADR#SAVEADR THEN FLAGC36) 3 
Ip VARF THEN 
IF EXPRESULTS=NUMCLASS AND NSEGsSAVENSEG THEN 
LACE 5 ee 
ADReSAVEADR 3 
EMI TNUMCEXPVALUE=1)3 
ENN ELSE EMITPAIR(1s SUB) 


ELSE 
IF EXPRESULT®NUMCLASS AND NSEG = SAVENSEG AND FROM NEQ 4 THEN 
BEGIN 
ADR©SAVEADRE “IF SSTITI*EXPVALUESO THEN FLAGCI54) 3 
ENN 


ELSE SSCrT) «& @93 
Ie FROM = 4 THEN 
BEGIN IF VARF THEN BEGIN EMITOCOUP)3 EMITPAIR(1sAD0)3 END3 
EMITLOINDX)3 INDX 8 INDX443 
EMITOESCLITCINFO)s ~~ ie 
EMITOCIF VARF TREN STD ELSE STN)3 
ENDS ™ 
Ip I < NSUBS TWEN 
BEGIN 
_IF GLOBALNEXT # COMMA THEN 
BEGIN XTA ¢ INFBS FLOGC23) ENDS 
SCAN3 
2) 
END3 
IF GLOBALNEXT # RPAREN THEN BEGIN XTA © INFBS FLOG(24)3 END 
€LSE IF FROM < 2 THEN 


BEGIN SCANS IF PREC > 0 THEN FROM © 13 ENDS 8 OO 


SUM « 03 

TOG «+ VARFS 

If VaRF THEN 

FOR y « NSUBS@1 STEP *1 UNTIL 1 DO 
BEGIN 


IF BOUND « EXTRAINFOCCBOLINK*BDLINK#1)/IRsBOLINKe IC) < 0 THEN 


EMITOPDCLITCBOUND) ELSE EMITNUMCBOUND )3 


“03666000 Tf 


93641000 Tf 
03642000 T 
03643000 T 
03644000 T 
03645000 T 
03646000 7 
03647000 T 


03648000 FT 


03649000 T 
03649100 7 


— 03649200 T 


03649230 T 
03649250 7 


“03649500 T 


03649400 T 
03650000 T 


(03651000 7 


03652000 1 
03653000 fT 


(03654000 7 


03655000 T 
03655500 7 


03656000 T 


03657000 T 
03658000 T 
03659000 
03660000 Tf 
03661000 T 


“03662000 TF 


03663000 T 
03664000 T 


“O366a100 7 


03664200 T 
03665000 T 


(03665010 TF 


03665100 7 
03665200 T 


03665300 7 


03665400 T 
03665500 T 
03667000 T 
03668000 f 


99669000 


03670000 fT 
03671000 Tf 


~~ 03672000 F 


03673000 T 
03673100 T 


03673200 T 


03674000 T 
03673000 T 


“03676000 ¥ ~ 


03677000 T 
03678000 T 
03679000 T 
03680000 7 


0000 
0000 
0000 
0002 
0002 
0004 
0005 


000g 


0012 
0013 


sig 


0016 
0019 
O02, 
0024 
0024 


0026 | 


0027 
0030 


“030” 


0032 
0035 
0037 
0037 
0039 
(0046 
0044 
0042 


O03 


0043 
0047 


0087 


0054 
0054 
0054 
0053 
0056 


0059 
0064 


a1.) 7 (Reena es oe 


0062 
0063 
0063 
0068 
0066 


0068 
00714 


Ory 


0076 
0077 


0078 
0083 
0063 
0087 


ousa 


0078 


W0sg- 


sf he »? . * . ‘ 


IF VARF THEN T ©¢ 893 
IF INFA.SUBCLASS 2 DOUBTYPE THEN 
BEGIN 
te TOG THEN 
BFGIN 
IF T < @9 THEN EMITNUMC2xPROD) ELSE EMITL(2)3 
. EMYTOCMUL DS 
END3 
SM « SUMx23 
END FLSE _ 
IF T < @9 AND TOG THEN BEGIN EMITNUMCPROD)3 EMITOCMUL) END3 | 
IF BONOLEANCINFA.sCE) THEN 
SUM «© SUM + INFC,BASE ELSE 
Ip BOOLEANCINFA,FORMAL) THEN 
BEGIN EMITOPDCLITCINFAeADOR@1)}3 
IF TOG THEN EMITOCADD) ELSE TOG ¢ TRUES © 
END} 
IF BHOLEANCINFAeTWOD) ANDO FROM >0 THEN 
BEGIN. 
Ip SUM = 0 THEN 
IF TOG THEN ELSE 
BEGIN | le fea te ete eee et SO, 
EMITL¢O)3 
EMITDESCLIYCINFA,ADDR)3 
EMETOCLOD)S 
EMYTL(O)3 
GO TO CONSTRUCT; 
ae gs FNS tte, Da in Deere ate ela alc, ahh hea eh ne a ee ta Dla 2 ya hee od 
ELSE 
IF TOG THEN 
BEGIN. 
EMITNUMCABSC(SUM))3 | 
If SUM < 0 THEN EMITO¢CSUB) ELSE EMITOCADD)) 
END ELSE 
BEGIN 
EMITLOSUM,£3337))3 


END 
ELSE 
FOR 1 « NSUBS STEP #1 UNTIL 1 00 
BEGIN 
Ie I @ 1 THEN BOUND © 1 ELSE ona 
BOUND « EXTRAINFOCCBDLINK*BOLINK#S1)-IR»BDLINKeICY3 
te T ¢ SSCSAVIT+I) < @©9 THEN 
BEGIN 
SUM « (SUM+T"41)xBOUND3 
IF TOG THEN PROO «+ PRODxBOUND3 
END 
FE. SE 
BEGIN 
IF TOG THEN BEGIN EMITNUMCPROD)S EMITOCMUL)S EMITOCADO) END 
ELSE TOG « TRUE 
PROB « BOUND} 
SUM © ¢SUM=1)xBQUND3 
EnD3 
ENO3 


034681000 
03682000 


03683000 
03684000 
03685000 
03686000 
03687000 


03688000 


03689000 
03690000 


03691000 | 


03692000 
03693000 


~ 03694000— 


03695000 
03696000 
03697000 
03698000 


03699000 


03700000 
03701000 
03702000 
03703000 
03704000 
03705000 


“03706000 


03707000 


_ 03708000 | 
03709000 


03710000 
03711000 


03712000. 


03713000 
03714000 


03715000. 


03716000 
03717000 


~ 03716000° 


03719000 


_03720000. 
03721000 


03722000 


..9.3723000 | 
03724000 


03725000 


03726000 


03727000 
03728000 


03729000 


03730000 
03731000 


93732000 


03733000 
03734000 


03733000 


03736000 
03737000 


aye te te 


“0 


T 


: i ‘ | ; 


| 
I 
1 
i) 
i 


EMITOESCLITCINFAsADDR)3 
EMITOCLOD)3 
EMITLCSUM, ree 
GO TO CONSTRUCT; 
END3 
SPLITCINFAsAODR)3 
CONSTRUCT? 
Ir BOOLEANCFROM) THEN 
BEGIN 
IF INFAeSUBCLASS > DOUBTYPE THEN 
BEGIN 
EMYITOCCDC)3 
EMITOCDUP)3 
EMITPAIR( 4s XCH)3 
EMITOCINX)3 
EMrTOcLod)3 
EMITOCXCH)3 
EMITOCLOD)3 
END ELSE EMITOCCOC)3 
ENO ELSE EMITOCCOC); 
END FLSE 
BEGIN 
IF SUM = O THEN IF NOT TOG THEN EMITL(O) ELSE 
ELSE 
BEGIN 
Ie TOG THEN 
BEGIN 
EMITNUMCABS(SUM) )3 
IF SUM < 0 THEN EMITOCSUB) ELSE EMITOCADO)3 
END 
£1 SE EMITNUMCSUM)3— 
ENDS 
IF FROM > O THEN 
If BOOLEAN (FROM) THEN 
IF INFA.sSUBGCLASS 2 DOUBTYPE THEN 
BEGIN 
EMITOESCLITCINFA.ADDR)S 
EMITOCDUP)s 
EMITPAIR(1s XCH)3 
-EMITOCINX)S > 
EMITOCLOD)3 
EMYITOCXCH)3 
EMYTOCLOD)3 
END ELSE EMITVCLINK) ELSE 
BEGIN DESCREQ ¢ TRUES EMITNCLINK)3 DESCREQ « FALSE END3 
ENDS 
XIT! 
1T © SAVIT3 
SUBSCRIPTS ¢ BOOLEANCFROM)3 
IF DEBUGTOG THEN FLAGROUTINEC™ SUBSC*,*RIPTS *,FALSE) JF 


END SUBSCRIPTS3 


“OST T8000 C195 ee 


03738000 T 0158 
03739000 tT O166 
03740000 T 0160 
03741000 tr 0162 
03742000 y 0162 
03743000 7 OQ169 
03744000 7 0163 
03745000 T 0164 
03746000 7 0164 
03747000 T 9164 
03748000 y 0166 
03749000 fT 0166 
03750000 -r O167 
03751000 r 0168 
03752000 fT 0169 
03753000 T 0169 
03754000 T 0170 
03755000 7 O1714 
-03%56000 tT 0172 
03757000 tf 0173 
03758000 t O174 
03759000 TF O174 
03760000 tr 0178 
03761000 tT 0178 
03762000 7 0178 
03763000 Tt 0179 
03764000 t 0479 
03765000 7 0179 
03766000 TF 0166 
037467000 + O184 
03768000 + 0184 
03769000 yy O185 
03770000 Yr 0185 
03771000 yr 0186 
03772000 Tt O186 
03773000 7 0188 
03774000 ft 0189 
+ 03778000 T 019060, 
03776000 T 0194 
03777000 T 0192 
T 

03779000 T 0193 
03780000 7r 0194 


ON7HLOOO fT OLOR 


03782000 T 0196 
03783000 T 0199 


SRE ROOO FOLIO 


03785000 tT 0199 
03785100 y 0199 


03787000 t 0202 


_AL3 IS 211 LONG» NEXT SEG 


03788000 Tt 0513 


* 
¢ 


@ id * a Te ge ‘ aia “4 Pi ees i 
@ 
ae B o entt, ere $e ; 
EG TE MMENT CALLED TO PROCESS ARRAY BOUNDS3 8388888 t bat3 
@ BOOLEAN VARF» SINGLETOG; 03791000 p 0543 
- : . oe, Se Sa ie ea START OF SEGMENT #*e¥eeetwe 114 
DEFINE FNEW = LINK#S 03792000 T 0000 
@ REAL Te NSUBSs INFAs INFBs INFCs FIRSTSS3 03793000 fT 0000 
- LABEL LOOPS; . send Rlgwiltss® Li. & “Bice Git Ahaha, Ge Shick oe, aa Gece 42 GETOROCO- Ts 20000... 2 i be 
03795000 7 0000 
®@ 03796000 T 0000 
a IF DEBUGTOG THEN FLAGROUTINEC™ BOU"s"NDS  "sTRUE 2 03797000 F 0000 bs 
GETALLCFNEWs INFAs INFB, INFC)3 03798000 7 0002 
@ FIRSTSS ¢ NEXTSS3 03799000 T 0003 
. IF LYNK < 0 THEN BEGIN SINGLETOG © TRUES LINK © ABSCLINK) ENDS 03799500 ¢ 0004 _ 
LOOP! 03800000 7f 0007 
® IF NEXT * 10 THEN 03801000 Tt 0008 
BEGIN - . ae . 03802000 T 0008 — 
T # GETCFNEXT © GETSPACECFNEXT))3 03802100 7 0009 
@ IF TeCLASS # VARID OR NOT BOOLEANCT,FORMAL) THEN FLAG(92) ELSE 03803000 y 0013 
IF TeSUBCLASS > REALTYPE THEN FLAG(O93)$ 9808000 F 9001S 
T ¢ =T,ADDRS 03805000 T 0020 
@ VARF « TRUES 03806000 t 0022 
END ELSE . . 03807000 fT 0022 
IF NEXT = NUM THEN 03808000 t 0022 
e BEGIN 03809000 fT 0024 
IF NUMTYPEZINTYPE THEN FLAGCI13) 3 | gg t0000 F 0024: 
IF TeFNEXT#O THEN FLAGC(122) 3 03810010 7 0026 
 ) IF NOT VARF THEN IF NSUBS = 0 THEN LENGTH ¢ FNEXT ELSE 03812000 T 0029 
LENGTH © LENGTHXFNEXTS —— 03813000 T 0032 
END ELSE FLOGC(122)3 03814000 7 0033 
e EXTRAINFOCNEXTSS,IR*NEXTSS, IC) « TB 03818000 7 0038 
NEXTSS © NEXTSS=is ae ee ee 03816000 T 0038 
NSURBS « NSUBS413 03817000 tT 6639 
 ] SCANS 03818000 T 0040 
IF NEXT = COMMA THEN BEGIN SCAN3 GO TO LOOP ENDS 03819000 T 0041 
IF WEXT # RPAREN THEN FLOG(94)3 03820000 7 0043 
) XTA «© INFB3 03821000 t 0048 
IF TNFAsCLASS = ARRAYID THEN FLAG(9S)3 Lie déifin Eo 03822000 T 0046 
INFaeCLASS ¢ ARRAYID3 ~~ - 03823000 + 0048 
e@ IF VARF THEN 03827000 T 0080 
BEGIN ead ke See - ee, 93828000 7 0050. ee 
TF NOT BOOLEANCINFAsFORMAL) THEN FLAGC96)3 03829000 7T 0054 
®@ Ir NSUBS > 4 OR INFA eSUBCLASS > DOUBTYPE THEN 03830000 t 0053 
BEGIN BUMPLOCALSSLENGTH*LOCALS * 15363B0UNDS¢TRUE END ELSE  .——Sr“s—“s «si 31000 FT 00585 — : - 
LENGTH Cm EXTRAINFOLFIRSTSSs IReFIRSTSS eIC)3 03832000 7 0064 
& END €LSE 03833000 T 0067 
IF NOT SINGLETOG AND INFAsSUBCLASS > LOGTYPE THEN 03834000 Pp 0067 
BEGIN LENGTH © 2 *% LENGTHS BOUNDS © TRUE END?” SERS BE REA S eee A AT HOES 
@ IF LENGTH > 32767 THEN FLAG(99)3 03835000 T 0072 
INFC # LENGTH & NSUBSCTONEXTRA) & FIRSTSSETOADINFOIS 9836000 TF OO7H 
IF VARF THEN INFC « *INFC3 03837000 T 0076 
] PUTCFNEWs INFA)S PUTCFNEW42» INFC)3 03838000 tT 0078 
* SCANS ee bbe tena deel cao bintahincmasencs lasses nn Geta ete ba Ora pete oath tae katie a ee OO ae OOO. To DOR Gen: es vei tee 
IF DEBUGTOG THEN FLAGROUTINEC™  BOU"s"NDS "sFALSE) 3 03840000 T 008% 
 ] END BOUNDS3 03841000 T 0063 
ae AP TS 91 LONGs NEXT SEG 6. OO 
rd] 
td 


i 


i 


cooe eaves PARAMETERSCLINK)S VALUE LINKS REAL LINK? 
EGIN 


LABEL LOOPS 


REAL NPARMS»s EX» INFC»s PTYPE3 
ALPHA EXPNAME3 
BOOLFAN CHECKs INTFID3 
BOOLEAN NOTZEROPS 
REAL SAVIT3S 
DEFINE PARMTYPE = LSTT#} 
SAVIT ¢ TT @ ITHhs 
IF DEBUGTOG THEN FLAGROUTINEC™ PARAM", "ETERS ", TRUE ) 3 
INFC © GETCLINK+#2)3 
IF CHECK # BOOLEANCINFC.CL812) THEN 
BEGIN 
Ey « INFC,ADINFQ3 
NATZEROP «+ INFC.NEXTRA # OS 


T ¢ NFCe 
ane FID INF Ter: 13 


LOOP: 
BEGIN SCAN} 
EyPNAME « NAMES 
If GLOBALNEXT * 0 AND NAME = *S " THEN 
BEGIN EXPRESULT ¢ LABELID3 SCANS a 
IF GLOBALNEXT 4 NUM THEN FLAG(4Q)3 
EMITLABELDESC(NAME)3 
PTYPE ¢ 03 
SCAN3 
END 


z EXPCLASS AND INTFID)3 
If EXPRESULT = NUMCLASS THEN 
IF PTYPE = STRINGTYPE THEN 
BEGIN 
ADR # ADR = 13 

PTYPE ¢ INTYPES” 

EXPRESULT ¢ SUBSVAR3 

IF STRINGSIZE = 1 AND 
CT © EXTRAINFOCEXsIR*EXeICI,CLASS = VARID OR — 
T = EXPCLASS) THEN 

LP) Re ae aE 
EXPRESULT « EXPCLASS; 9 7 
EMITNUMCSTRINGARRAY[O))3 

END ELSE 

BEGIN 

EXPRESULT¢ARRAYID 3 

 EMITPAIRCPRGDESCBLDR(1*0*0sNXAVILGNXAVIL#1)¢ LOD)S- 
EMITL(O)3 are 
ae [POMTACSTRINGSIEEY NXAVILs STRINGARRAY)3 
ND 


PARMTYPECIT] «© O &@ EXPRESULTCTOCLASS) & PTYPECTOSUBCLIJ3 
XTA © EXPNAME3 


EyPRESULTSEXTIO) ANO NOT DCINPUT THEN TSSEDCXTAs2) 3 


ss ' i 
i : 


ELSE PTYPE ¢ EXPRCCHECK AND EXTRAINFOLCEX.IRsEXeICI CLASS 9 


ENS ELSE EXPRESULT ¢ EXPCLASS}0 0 “UT Octet ee 


le TSSEOITOG THEN IF CEXPRESULT#FUNID OR EXPRESULTSSUBRID OR” 


03842000 ¥ 


“OF8a3000 +t 


03844000 7 
03845000 T 
03846000 7 


03847000 T 


03848000 7 


03849000 fT 
03850000 Tf 


03851000 T 


03852000 1 
03853000 7 


(03854000 7” 


03655000 7 
03856000 T 


03857000 + 


03858000 T 
03859000 T 


~ 03659500 T 


03860000 T 
03861000 7 


03662000 1 


03863000 7 
03864000 T 


03866000 TT 


03867000 T 
03868000 7 


03869000 TF 


03870000 7 
03871000 T 


03872000 T 


03873000 T 
03874000 T 


~ 03875000 7 


03876000 7¢ 
03876500 T 


03877000 7 — 


038786000 ¥ 
03879000 T 
03680000 7 
03883000 fr 
03882000 7 


~~ O38a3000 7” 


03884000 T 
03885000 T 


03886000 tr 


03887000 7 
03888000 T 


~ 03889000 T 


03890000 + 
038691000 T 


— O5892000 tT 


03893000 T 
03894000 Tf 


03894050 7 


03894060 T 


0313 


03,3" 


0513 
0513 


Osy3 
START OF SEGMENT «tetttaean 


0000 


0000 


0000 
0000 


S006 ee 


0000 
0000 
0004 
0003 
0005 


Ta 


0007 
0008 
0010 
0012 
0042 


0012. 


0012 
0013 


00s — 


0016 
0018 


OOtg 


0020 
0020 


0Z0 ~~ 


0027 
0030 


60a rs 


0032 
0032 
0034 
0034 
0035 


0036 © 


0040 
0044 


hay oe 


0040 
0043 


0044 
0044 


C0ag Oe aes 


0048 
0050 


OUS6° 


00314 
0055 


0058 


0058 


aa PHA 04). 


oons 


5 i i | i : 
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=o zi 
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a 


hd 


Ie DCINPUT THEN IF EXPRESULT*@FUNID OR EXPRESULT#SUBRID 
OR EXPRESULT®EXTID THEN FLAGC151) 3 
le CHECK THEN 


BEGIN 
IF T « EXTRAINFOCEXeIR*EXeIC]eCLASS ¥ EXPRESULT THEN 
CASE T OF 
BEGIN . G3, 
EXTRAINFOCEX,IR*EX.IC) * O & EXPRESULTCTOCLASS] 
& PTYPELTOSUBCL]3 
IF EXPRESULT # SUBSVAR THEN FLAG(66)3 
IF EXPRESULT = SUBSVAR THEN 
IF NOT INTFIO THEN 
BEGIN EMITOCCOC)3 
IF PTYPE 2 DOUBTYPE THEN EMITLCO)3 
END ELSE 
ELSE 
IF EXPRESULT = EXPCLASS THEN 
BEGIN IF PTYPE 2 DOUBTYPE THEN EMITOCXCH)3 
EXTRAINFOCEX,IR2EX,ICI¢CLASS © EXPCLASS 
END ELSE FLAGC67)3 
333 
FLAG(68)3 . | 
IF EXPRESULT = EXTID THEN 
PUTCEXPLINK»GETCEXPLINK&FUNIDETOCLASS)) ELSE 
FLAGC69)3 | 


IF EXPRESULT = FUNID OR EXPRESULT = SUBRID THEN 
EXTRAINFOCEXeIRsEXeIC) © EXPRESULT ELSE FLAG(70)3 
IF EXPRESULT = EXTID THEN 
PUTCEXPLINKsGETCEXPLINK)&SUBRIDETOCLASS]) ELSE 
FLAG(7193 
33 
IF EXPRESULT = ARRAYID THEN EXTRAINFOLEXeIR#EXeIC} CLASS 
* ARRAYID ELSE 
IF EXPRESULT = VARID THEN 
BEGIN 
EXTRAINFOCEX,IR*EX,ICI.CLASS © SBVEXPS 
EMITL(O). ~ 
END ELSE 
IF EXPRESULT = EXPCLASS THEN 
BEGIN 
EXTRAINFOLEX,IRsEXelC]eCLASS * SBVEXPS 


IF PTYPE 2 DOUBTYPE THEN EMITOCXCH) ELSE EMITL(O)S 


END ELSE FLAG(72)3 
IF EXPRESULT = SUBSVAR THEN 
UF NOT INTFID THEN 
‘BEGIN EMITOCCOC)3 
IF PTYPE 2 DOUBTYPE THEN EMITLCO) 
syst TEEN es itn aber daesesirh abassdbs oes Bovcateics Cornel a eaten Be: Sees Dose Ay een topes es 
ELSE 
FLSE IF EXPRESULT =® VARID THEN 
IF NOT INTFID THEN 


IF PTYPE 2 DOUBTYPE THEN EMITL(O) ELSE ELSE = | 


ELSE FLAGC67)3 
IF EXPRESULT = VARID THEN 
EMITL(O) ELSE 
IF EXPRESULT # EXPCLASS THEN 


03894100 
03894200 
03895000 
03896000 


03897000 


03898000 
03899000 


03900000. 


03901000 
03902000 


03903000 


03903100 


03903150_ 


03903200 
03903400 


03903500. 


03904000 
03904100 


_ 93904200. 


03905000 
03906000 
03907000 
03908000 
03909000 


03910000 
03911000 


03912000 
03913000 


— 03914000 


03915000 
03916000 


“03917000 


03918000 
03919000 


03920000. 


03921000 
03922000 


03923000 


03924000 


93925000. 
03926000 
03927000 


03928000 


03929000 
03930000 
03930100 


03930200. 


03930300 


03930400. 


03930500 
03930600 


__ 03930650 


03930700 


03930800 


.93931000_ 


03932000 
03933000 


ee 


i . 


| 
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IF PTYPE > DOUBTYPE THEN EMITOCXCH) Eyee EMITLCO) 03934000 fF 0155 
ELSE IF EXPRESULT ¥ SUBSVAR THEN FLAG(67)3 03935000 T 0158 
END OF CASE STATEMENT 03936000 fT 0162 


ELSE YF PTYPE 2 DOUBTYPE THEN 03936100 T 0162 
START OF SEGMENT «set 8Waetew 8116 
116 Is 17 LONG, NEXT SEG 115 


IF EXPRESULT = VARID THEN EMITL(O) 03936200 Tf 0164 
ELSE IF EXPRESULT ® EXPCLASS AND NOT INTFID oes 03936300 T 0166 
THEN EMITOCXCH)3 03936400 7 0167 
If T @ EXTRAINFOCEX.IR» EXeIlCJeSUBCLASS # O OR 03937000 y 0169 
CT = INTYPE AND PTYPE = REALTYPE AND 83938000 7 UL73 
GETCLINK).sSEGNO = 0) THEN 03939000 rT 0178 
EXTRAINFOLEXeIRsEXeIC]eSUBCLASS © PTYPE ELSE 03940000 Tt O177 
IF NOTCT 3 PTYPE OR T # REALTYPE AND PTYPE = INTYPE ) TREN  -- -O3x9aT000 Y 0182") 
FLAG(88)3 03942000 7 0185 
END OF CHECK _ 03943000 tT 0187 
ELSE IF PTYPE 2 DOUBTYPE THEN . ee OSVAI{O0 F OLB 
IF €XPRESULT = VARID THEN EMITL(O) 03943200 ~T 0188 
ELSE IF EXPRESULT = EXPCLASS THEN EMITOCXCH)S 93943300 7 0190 
IF NOTZEROP THEN EX ¢ Exe]3 03944000 7 01990 °° 7 
7 tTats 03945000 T 01958 
CN OR 8 oe cotati asd We, toby detvaathsetn tie JE ad 2 . a ca oor ete te cee 03946000 T 0196 
IF GLOBALNEXT = COMMA THEN GO TO LOOP3 - “03947000 7 pee. 
NPARMS «© IT © SAVITS 03948000 T 0197 
IF GLOBALNEXT # RPAREN THEN FLOGC108)3 > . 03949000 7 0199 
senate GHEeR WaeW - Fe me I IOgE OE ORI 
BEGIN 03951000 T 0204 
INFC © GETCLINK#+2)3 eT ee ree res 03952000 rt 0202 
INFC © =CINFC & NPARMSCTONEXTRA) ee "859853000 F C209 °° 
& NEXTEXTRALTOADINFO))3 03954000 T 0208 
PUTCLINK+29INFC)S 039855000 T 0206 
FaR 1 ¢ SAVIT STEP i UNTIU IT-1 BO 0 7 Ue Ho mn TE ATQ FS O08” 
BEGIN 03957000 fr 0212 
-EXTRAINFOCNEXTEXTRAsIR»NEXTEXTRASIC] © PARMTYPELIJS = 2 2 03958000 tT 0212 
NEXTEXTRA © NEXTEXTRASLS 63989000 + O215 - 
END} 03960000 T 0217 
Be Sagan pecags ceases cha esr ER. ma btostencaeTeeasia aie wan h detente, Picea edt taste Am ctac ate Meta nite Shs oe ae 03961000 T 0217 
Eee! on RRP “OBES 
IF T © GETCLINK*2).NEXTRA > O AND T # NPARMS OR 03963000 rt 0217 
_TmO ANDO INTFIO AND NPARMS < 2 OR 0 2 0 03964000 T 022, 
7 = 0 AND NOT INTFID THEN 63964500 t 06224 
BEGIN XTA © GETCLINK#1)3 FLAGC28) ENDS 03968000 ry 0226 
_TF DEBUGTOG THEN FLAGROUTINEC™ PARAM*s"ETERS "sFALSE) 3 > . 03966000 T 0229 
ie ite tee a SEROUS ORE en 
END PARAMETERS} 03968000 T 0232 
Het de a cnc a sho Rieu enced athe Salon ccm ahh g 9 dg da, delat emcee wee ete ou gen Sho ED oe de OO, ONS: NE MEE: SVE. = — LS ie a sane 
PROCEDURE. SS UTEGNRER CC INIOT graves LINK3 REAL LINKS 03969000 T “gues 
BEGIN 03970000 T 0513 
OO ES RRMC TRS NOARMS 9° SEQ) co gg ggg pce 
START OF SEGMENT sawvetedaner 4117 
IF DEBUGTOG THEN FLAGROUTINEC"” STMTF"s"UNREF "»TRUE ) 3 03971010 fT 0000 
PARMLINK © GETCLINK42).C36812)5 os eee" "“"63972000 7 “0062 © ~~ 
DO 03973000 tT 0004 
See, Ue nr ot ge * 06 4 «© 


BEGIN 
SCANS 
IF ACEXPRCTRUE) # BeGETCPARMLINK) SUBCLASS THEN 
IF A > REALTYPE OR B > REALTYPE THEN 
BEGIN XTA * NNEWS FLAG(88) ENDS 
PARMLINK © PARMLINK#33 
NPARMS « NPARMS#43 
END UNTIL NEXT 4 COMMA} 
IF NEXT # RPAREN THEN FLOG(108)3 
SCANS - 
GETALLCLINKs INFAs XTAs INFC)3 
IF NPARMS # INFC,NEXTRA THEN FLAG(28)3 
SEG ¢ INFAsSEGNO3 . 
BRANCHLITCINFCeBASE&SEGETOSEGNOJsFALSE)3 
EMITBCINFA®ADDR & SEGETOSEGNOJ, FALSE)3 
ADJUSTS 
IF DEBUGTOG THEN FLAGROUTINEC® STMTF"™»"UNREF "“»FALSE) 3 
END STMTFUNREFS 
117 1S 


BOOLEAN PROCEDURE DOITINLINECLNKI3 


BEGIN: . on 
REAL ColsCisC2sC3eC4sC5 3 


VALUE LNKS REAL LNK 3 


03974000 


03975000 
03976000 


03977000 


03978000 
03979000 


03981000 
03982000 


03983000 


03984000 
03985000 
03986000 


03987000 ft 


03988000 
03989000 
03989010 
03990000 


37 LONG 


03990010 
03990020 


~ 03990030 


START OF SEGMENT 


LABFL HUNTsaFOUNDsXIT*AIMAGs AINTsCMPLXsLOOPsDOTIL1sSNGL 3 
DEFINE OPTYPESLSTT#s EOQsEMITO#s, EPSEMITPAIR#s, EOL@EMITOPOCLIT# 3 
IF MEBUGTOG THEN FLAGROUTINEC"DOITIN"’s"LINE “sTRUE) 3 
Cle13 C2*INLINEINTLOJ$ C3*GETCABSCLNK)41) 3 
HUNTS 
IF CCOINLINEINTCI#CC14C2 ef 368114], INAM)<C3 THEN Clelel 
ELSF IF C>C3 THEN C2*I=1 ELSE GO FOUND 3 
IF ¢1<c2 THEN GO HUNT 3 - 
IF YNLINEINTEC1LJ«INAMZC3 THEN 
BEGIN 
IF LNK<O TREN DOTTINLINE*+BOOLEANCLOOKFORINTRINSICC#LNKID 3 
GO XIT 3 
wi INO ARS 8 ip ge re et 
lecy 3 
FOUND! 
ClecCeINTEC2e(C4*INLINEINTEIIDSINTXI) oINTPARMCLASS $0 
IF INK<O THEN 
BEGIN 
TeeLNKS_ 
IF CC2eGETCLNKS2))<0 THEN GO xT 3 
PUTCLNK#20"(C2RCI OC, FSP AAte JE LONE UERAGENEA TERIA ACTOADINEES SS 3 
FOR Jel STEP =4 UNTIL 1 D0 


DOITINLINE*BOOLEANCLNK*NEEDC(C3*FUNID)) 3 


03990040 


“03990045 © 


03990047 


03990050 
~ 03990060 


03990070 
03990080 


— 03990082 


03990084 
03990086 


~ 03990088 


03990090 
03990092 


03990094, 


03990096 
03990098 


~ 03990100 


03990402 


_ 03980000 T. 
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T 
YT 
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0008 
0005 
0005 
0008 
0014 
0043 
0014 
0015 
0016 
0018 
0019 
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0024 
0027 
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0030 
0032 


NEXT SEG | 


0513 
0513 
(0513 


KeKKTH ARE 


Se ee Ne ie Nee ee ee 


<-> 


T 
Te 
T 
T 
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ar 
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0000 


0000” 


0000 
0002 


0006 
0010 
0016 © 
0017 
0019 


0022 
0023 


Gose Oe 


0023 
0024 


0028 


03990104 T 0029 


03990105 © 


ae 


03990108 7 0034 


03990112 T 0039 


BEGIN 
EXTRAINFOCNEXTEXTRAsIR®NEXTEXTRAsIC J©OREXPCLASS{ TOCLASS) 
a aa et tn Gee eMail toes Vala cts DE, Sa cia cn WOU BGA EN 1 510 
NEXTEXTRACNEXTEXTRAS1 3 
END 3 
AINFOCUNKsIROLNKe IC) »SUBCLASSeC,INTCLASS Jo 
GO XIT 3 
END 3 


03990114 
03990116 


03990118 
03990120 


03990422 


03990124 
03990126 


T 
T 


03990117 7 0044 


T 


0041 
0044 
“0046 
0047 
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IF BOOLEANCLNKef2281)) THEN 

STACKHEADEGET(C CNEXTINFO*NEXTINFO@3341) MOD SHXJ@GETCNEXTINFO) LINK 3 

LNKeCeINTINLINES INTEC2)¢INTSEENCL3 DOITINLINE* TRUE 3 

TF ¢4>0 THEN INLINEINTCIJe=C43 [60 5 

IF yREF THEN ENTERXCC3O8FUNIDE TOCLASSI&CC211673193 

IF GLOBALNEXT#LPAREN THEN BEGIN FLOG(106)3 GO XIT END 3 

LOOP! SCANS C5¢XTA 3 

IF 120 THEN 
TF LNK=1i0 THEN EMITLCO) ELSE IF LNK#21 THEN EMITDESCLIT(2) 3 

IF ¢C4¢EXPRETRUE))4C1 AND CCL#REALTYPE OR C4#INTYPE) THEN 
BEGIN xTA*C5S FLAG(BH)3 C2es2 END 3} 7 

lel+i3 IF GLOBALNEXT@COMMA THEN GO LOOP 3 

IF GLOBALNEXT#RPAREN THEN BEGIN FLOGC(108)5 C2ee2 ENDS 

IF r#C.eINTPARMS THEN IF CeINTPARMS#0 OR I<2 THEN ~ 
BEGIN XTA*C33 FLAG(28)3 C2e=2 END 3 

OPTYPELITI#CeINTCLASSS IF C2<0 THEN GO XIT 3 

CASF CLNK#1) OF _— 
BEGIN 
EOCSSP) 3 


ie ae 


| @1t ABS» DABS» 
EQCDEL) § % @22 AIMAG, 
EPCisTDV) 3 % @38 AINTs 


z TABS. 
“% 
3 
EQCRDV) 3 : @4s AMQD, 
x 
x 


AIMAG! 
AINTS IF IX» INT, 

EQCLND) 3 % @5! LOGICAL ANDe 

EQCXCH) 3 @6% CMPLX, 

EQCLNG) $ % @71 LOGICAL COMPLIMENT (NEGATION), 


CMPLX3 


BEGIN % @10! DIMy IDIM. 

EQCSUB)S EQCDUP)S EPCOsLESS) 3 

IF ADR>4082@ THEN BEGIN ADR*ADR+i3 SEGOVF END 3 
EP(2sBFC)$ EOCDEL)) EMITLCO) 3 

END 3 


BEGIN EOCXCH) EQCCHS)S GO CMPLX END 3 % @41! CONJGe 
3% @12t DBLE (SOME CODE ALREADY EMITTED ABOVE De 


BEGIN EQCXCH)$ EQCDEL) # &% @133 DSIGN, 
EMITODTCLaded) & 
END 3 


DOT1118 


EQC(LQV) 3 % O14% LOGICAL EQUIVALENCE. 
3% @151 FLOAT, 
GO DOTi11 § % A168 ISIGNs» SIGN, 


BEGIN EOCRDV)3 GO AINT ENO 3 % @37% MOD, 


FOCLOR) $ % @20% LOGICAL OR, 
BEGIN EQCXCH)3 GO AIMAG ENO 3 x @21! REAL, 
EPC1oKOM) 3 % @221 TIME, 


BEGIN % @23% SNGL, 


SNGL! EPC 9*SND))_ EQCXCH)) EMITO 
EMTTONT(9+938)3 EQLC9)S E 


END 3 
“GO SNe6L ¢ % @248 TOINT 


ZIG 
‘oO 
4 


BEGIN & @25% AMAXO sAMAXL» AMINO S AMINA» MAXOSMAXLSMINOSMINA 
2s “SOME “COBE ALREADY EMITTED ABOVE. vives 
IF ADR>4068 THEN BEGIN ADR*ADR+13 SEGOVF END 3 


- s i 4 * 4 ’ e 


03990127 T 0034 
03990128 7, 0055 
03990130 Tt 0060 
03990132 Tt 0068 
~~ 03990134 y+ 0068 
03990136 7 0072 
03990140 fT 0078 
03990145 7 0076 
03990150 7 OO077 
03990160 7 0062 
““O3990T65 FT COBS” 
03990170 T 0088 
03990160 FT 0094 
—OSFVOTIO ¢ V09G” 
03990195 7 0098 
03990200 rT 0101 
(03990210 7 0104 
03990220 Tt 0105 
03990230 r 0106 
03990240 fT 0107 
03990250 T 0109 
03990260 7 O114 
03990270 y O112 


03990280 T Olta 
03990290 T 0118 


03990291 fF O116 © 
03990300 T 0116 
03990310 fT 0116 
03990315 F Ol1197 


03990320 7 0122 
03990330 T 0124 
“OS990TI1 F 8125" 
03990340 yr 0125 
03990350 ry 0128 


ay g60038 yo Disa oo ee SS 


03990360 YY 0128 
03990370 ft 0130 


03990380 F 013, 
03990381 fT 0131 

03990390 fT O13, 
03990400 Y 0133. 
03990410 T 0133 
03990420 Tt 0133 

“03990430 FT 
03990440 T 0136 
03990450 rT 0138 


“St ee 


“Geaguasd 47 6180 


03990470 T 0139 
03990480 Y 06139 


~ 039990090 T Olay 


03990500 T 
03990510 Tf 


0147 
0148 


03990530 7 0148 
03990535 r QO148 


———  -EygOsTO YO OLaR 


03990542 7 0148 


—OS990SZ0 F UlaG 


‘ * 


7 & 


. e 
@ : af ne Ca « * 4 * . ° 


‘@ 
EP(9eSTD)3 EQCDUP)S EOL(9) 3 | 03990545 rf 0154 
| EQCIF C3,02426)3"Aa" OR C3.02486]2"X" THEN LESS ELSE GRTR) 3 03990550 tT 0154 
@. EPC2sBFC)s EQCDEL)$ EOLC9)3 EOCXCH)S EOCTOP)S EOCLNG) 3 03990585 7 0159 
; EP¢14,BBC)3 EOCDEL)S IF C3s"MINL “ OR C3e"MAX1 “ THEN GO AINT | 03990560 ~ 0163. 
END 3 03990565 T 0167 
6 03990566 7 0168 
END OF CASE STATEMENT 3 : | ee Ee 03990800 T 0168 
START OF SEGMENT eeatenanns 
@ 119 IS 22 LONG, NEXT SEG 
7 XIT3 | a Bees adits w oo...) 03990810 T 0169_ 
IF nEBUGTOG THEN FLAGROUTINEC"DOITIN’s "LINE sFALSE) 3 03990815 7 0169. 
@ END OF DOITINLINE 3 03990820 fT O17% 
_ ‘118 TS 180 LONG», NEXT SEG 
@ 
) REAL PROCEDURE LOOKFORINTRINSICCL)S VALUE L3 REAL L3 03991000 r 0513 
BEGIN . . _ 03992000 fT 0513 
ALPHA IDs I» Xs» NPARMS$ 03993000 7 0513 
e START OF SEGMENT «vaewtnwean 
REAL T3 — . 03994000 ft 0000 
LABEL FOUNDs XIT3 03995000 T 0000 
@ IF QEBUGTOG THEN FLAGROUTINEC"LOOKFO"s"RINTRN'S TRUE ) 3 03995010 7 0000 
LOOKFORINTRINSIC © L © NEEDCID © GETCL4#1)»FUNIDDS . oo . 03996000 + 0002. 
IF GETCL4+#2) < 0 THEN GO TO XIT3 % PARAMETER INFO KNOWN 03996050 Tt 0008 
@ COMMENT 8 MUST BE SET TO K/2»s WHERE K IS THE INDEX OF THE LAST 03996100 + 0007 
INTRINSIC NAME IN THE ARRAY INTS noe ce ee - .. .. ., 03996200 7 0007 
AeO} BeNUMINTMY 3 03997000 ~ 0007 
@ WHILE A+1 < B DO 03998000 T 0009 
BEGIN Ptanie theses | oli eta an, We ot be tae aa gene pee shade, ee oo 99999000 FT 0094 
I ¢ REALCBOOLEANCA*B) AND BOOLEAN(1022))3 04000000 t 0014 
& IF Z ¢ INTCI] = ID THEN GO TO FOUND3 04001000 fT 0013 
IF ID < Z THEN B © 10f36811) ELSE A @ 1.036841) — | 04002000 ft 0015. 
ENDS 04003000 tT 0022 
& IF ID = INTCY*#CA4+B)x2"1) THEN GO TO FOUND3 04004000 y 0022 
GOTO XITS aver noon eee . A ee 27 ato 04005000 TF 0026 
FOUN! | : ; “64006000 7 0036 
@ NPARMS#(X@INTCI4+1L))¢INTPARMSS INTEI+L),INTSEEN|L 3 04007000 tT 0027 
INFOCLeIReLelC le SUBCLASS¢X,INTCLASS 3 — at 04008000 Y 0032 
PUTCL 422 =C1&NEXTEXTRALTOADINFO) &NPARMSCTONEXTRA}))3 08009000 r 0037 
@ IF NPARMS = 0 THEN NPARMS ¢@ 13 04010000 T 004; 
TeX INTPARMCLASS 3 ee en WARS ee - _.. .. 04011000 T 0043 
FOR y ¢ 1 STEP 1 UNTIL NPARMS DO 04012000 tr 0044 
& BEGIN 04013000 - 0048 
EXTRAINFOCNEXTEXTRASIRsNEXTEXTRA,IC) © Oo a . 04014000 T 0045 
O & EXPCLASSLTOCLASS) & TLTOSUBCLI3 04045000 7 O64? 
r NEXTEXTRA © NEXTEXTRA + 13 04016000 y 0050 
ENDS . : Schnee 04097000 T 0084 
xIT? 04018000 r 0053 
@ IF DEBUGTOG THEN FLAGROUTINEC"LOOKFO"s"*RINTRN"SFALSE) 3 04018010 7 0054 
END LOOKFORINTRINSICS | ; ct i ee 04019000 T 0056 ae 
120 1S 62 LONG, NEXT SEG” 
@ 
@ 
INTEGER PROCEOURE EXPRC(VALREQ)3 VALUE VALREQ$ BOOLEAN VALREQS 04020000 yr 0513 
© 


120 


Pee eae 


— 


BEGIN LaBEL LOOP» STACK» XIT» NOSCANS REAL T3 


START OF SEGMENT seettvatan 


LABEL ARRY3 
LABEL HERE 3 


REAL SAVIT» SAVIPS Aa 28 Sees 
BOOLFAN CNSTSEENLASTS ZFOR HANDLING CONSTANT 
REAL SAVEADR3 ZEXPONENTS 
_ DEFINE OPTYPE = LSTT#3 
REAL EXPRESLTsEXPLNK3 
REAL EXPV3 
REAL TM 3 _ . | | 
DEFYNE FOSEMITO#s EPZEMITPAIR#s EQLaEMITOPDCLITS> 
ESICOP)=BEGIN EOCXCH)3 EPC9sSTD)S EQCOP) END #> 
| ES2aBEGIN EPC(9sSTO)S EOQCXCH)S EPC17sSND)$ EOCMUL) END # 3 
LABFL CTYPs DTYP» RLESSCs DLESSC» CLESSD» CLESSC» RPLUSO» DTIMESC, 
CTIMESRs COIVBYDs CTIMESRi»s CTIMESR2s DLESSC1 3} 
LABFL SPECCHAR» RELATIONS | 
REAL LINK3 
DEFINE T1 = EXPT14s. T2 = EXPT2#s CODE = EXPT3#3 
COMMENT THE FOLLOWING TABLE GIVES THE PRECEDENCE (PREC) AND 
OPERATOR NUMBER COP) OF THE ARITHMETIC AND LOGICAL OPERATORS, 


OPERATOR PREC oP 
A 9 15 
UNARY = . 8 12 
4 7 14 
: 7 13 
- 5 ii 
* 5 10 
eNEe 4 9 
eGEe 4 a 
GT. 4 ? 
eE Qe 4 6. 
olLEe 4 5 
alte 4 4 
NOT, oa 3. 
eANDe 2 2 
eORs 1 1 


THE UNARY PLUS IS IGNORED Se me ee ees 
PROCEDURE MATH(Ds Cv» T)3 VALUE De Ca T3 REAL Do Co T3 
BEGIN 

EMITNCMKS)S 

EMITL(C)3 

EMITVCNEEOC’. MATH "» INTRFUNID))3 

EMITOCDELS 

IF 0 = 2 THEN EMITOCDEL)3 

OPTYPECIT¢IT*=1) ©« T3 
END MATHS | 


NNEW © NAME? 

IF DEBUGTOG THEN FLAGROUTINEC” EXPRE"»"SSION "»TRUE ) 3 
OPTYPECSAVIT ¢IT © IT+1] © 
PROSAVIP*+IPeIP41) + OPSTCIP) © O3 


04021000 
04022000 


94022010: 
04023000 


04024000 
04025000 


04025500 


04025600 
04026000 


04027000 


04028000 
04028010 


— 04028020 


04028030 
04028040 
04028050 
04028060 
04029000 


~04030000— 


04031000 
04032000 
04033000 
04034000 
04035000 


04036000 


04037000 
04038000 


04039000. 


04040000 
040641000 


04042000 


04043000 
04044000 


04045000 


04046000 
04047000 


04048000 


04049000 
04050000 


~ 04051000 


04052000 
04053000 


~ 04054000 © 


04055000 
04056000 


04058000 


04060000 


04061000 
04062000 
04063000 


T 


Tt 


T 
r 
T 
T 


ae et tt a tt At tt tt tt a tt ta tO OH a 


0513 


0000 
0000 


“e000.” 


0000 
0000 


9000" 


0000 
0000 


0000" 


0000 
0000 


0000 


0000 
0000 


(00006 


0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 


0000 


0000 
0000 


~ 0000 - 


0000 
0000 


— 0000 


0000 
0000 


~ 0000" 


040857000 7 600 
2p 0S OS 2000. 1. 0008) 


121 


IF GLOBALNEXT = PLUS THEN GO TO LOOP3 

IF GLOBALNEXT = MINUS THEN 

BEGIN PREC + 83 OP © 123 GO TO STACK END3 

IF PREC > 0 THEN GO TO STACK3 

LINKe CEXPLNK*FNEXTISREALCSCANENTERD £224781] 3° 

GO TO NOSCAN3 

LOOPs SCANS 

LINK «© FNEXT3 

NOSCAN? 

CNSTSEENLASTIaFALSE3 

IF GLOBALNEXT * IO THEN. 

BEGIN 
Ip IP # SAVIP THEN EXPRESLT © EXPCLASS3S ~ 
OPTYPELCITeIT+1) «© CACGETCLINK) D6 SUBCLASS} 
SCANS 
Ip NOT RANDOMTOG THEN. 


If NEXTSEQUAL THEN BEGIN NEXT¢O3 OP+63 PRECed END 3 


Ir GLOBALNEXT = ID OR GLOBALNEXT = NUM THEN 
BEGIN FLOGC1)3 GO TO XIT END3 


If NOT VALREQ AND PREC > 0 THEN VALREQ « TRUES 


If GLOBALNEXT 4 LPAREN THEN 
BEGIN 

LINK «© GETSPACECLINK)3 

T © CAGGETCLINK) ).CLASSS 


_IF XREF THEN ENTERXCGETCLINK#+1)s08AL15115191)3_ 


IF EXPRESLT = 6 THEN EXPRESLT ¢ T3 
IF VALREQ THEN 
IF T = VARIO THEN EMITV(LINK) ELSE 
BEGIN XTA © GETCLINK#1)3 FLAGCSO) END 
ELSE 
BEGIN | SOA org a hee Se 
IF T = VARID THEN 


IF GLGBALNEXT > SLASH AND EXPRESLT = VARID THEN 


BEGIN 


DESCREQ + TRUEJ EMITNCLINK)S DESCREG ¢ FALSES = 5° 2 


GO TO XIT3 
END ELSE EMITVCLINK) 
ELSE 
BEGIN 
-LF..7_= ARRAYID THEN | 
BEGIN 
IF BOOLEANCA,.CE) THEN 
_. EMI TNUMCGETCLINK+2) BASE) ELSE 
IF BOOLEANCAsFORMAL) THEN 
EMITOPDCLITCAeADDR@1) ELSE 
coe AEMETLOODR 
GO TO ARRY? see ~ 
END ELSE EMITPAIRCA.ADDR,LOD)3 
. go TO XITs~ 
“ENDS 
ENDS 
— ..@O TO SPECCHARS 
ENDS 
If AsCLASS # ARRAYID THEN 
BFGIN COMMENT FUNCTION REFERENCES | 
EXPRESLT ¢ EXPCLASS3 
IF AsCLASS = STMTFUNID THEN 


coun eaneen 94106000 7 0088 
04107000 7 0089 
04108000 T 0089 
04109000 T 0089 
"OGL 10000 T  OO89 
04111000 rT 0089 
04112000 7 0090 
04112100 T 0094 
04113000 T 0092 


04103000 T 0084 
““Oa104000 + 00664 
04108000 rf 0086 


04064000 7 0019 . 
04065000 Tt 0020 
04066000 tT 0024 
04067000 T 0026 
04068000 + 0027 
04069000 fT 0029 
04070000 FT 0030 
04071000 7 0030 
04072000 T 0034 
04072500 c 00302 
04073000 ¥ 0032 
04074000 T 0033 
04074400 TF 0034 
04073000 T 0036 
04076000 7 0039 
04076050 T 0040. 
04076100 r 004; 
04077000 y 0045 
04078000 F 0047 
04078100 Tf O048 
04079000 fT 0084 
04080000 fT 0052 
04081000 T 0052 
04082000 rT 0054 
(04082100 tr 0056 
04083000 7 0060 
04084000 fT 0062 
04085000 fT 0062 - 
0460866000 Tt 0064 
04087000 fT 0067 
94088000 T 0067 
04089000 Tt 0068 
04090000 Tt 0069 
94091000 y 0079 
04092000 tT OO74 
04093000 tT 007% 
94094000 T 0074 | 
04095000 T 0075 
04096000 T 00758 
04097000 T. 0076 
04098000 Tt O07? 
04099000 t 0077 
7 nu, 94100000 7 0078 
04101000 rt. 0084 
04102000 T 0082 


BEGIN 
IF XREF THEN ENTERXCGETCLINK#!) 208AL15#1529))3 
STMTFUNREFCLINK) 3 
IF NEXTSEQUAL THEN IF NOT RANDOMTOG THEN 
BEGIN NEXT«*03 OP*63 PREC#4 END 3 
GO TO SPECCHAR 3 


END 3 
IF AeCLASSSEXTID OR GETCTM*GLOBALSEARCH(GETCLINK41))),.CLASS& 
FXTID THEN LINK@*REALCOOITINLINEC*LINK)) ELSE 
IF AeCLASS<FUNID AND TMa0 THEN 
IF DOITINLINECLINK) THEN GO HERE ELSE 
LINK ¢ LOOKFORINTRINSICCLINK) ELSE 
LINK © NEEDCGETCLINKe1 )»FUNIOD3S 
IF XREF THEN ENTERXCGETCLINK#1 )s O8GETCLINKIC15215393)3 
EMITOCMKS)3 


PARAMETERS(CLINK)3 
IF ERRORTOG THEN GO TO XIT ELSE SCAN} 
EMITVCLINK )3 
IF OPTYPECIT) ¢ GETCLINK).» SUBCLASS 2 DOUBTYPE THEN 
EMI TOPOCLITC( JUNK )3 
HERES IF NEXTZEQUAL THEN 
IF NOT RANDOMTOG THEN BEGIN NEXT#0O3 PREC#43 OP©6 END 3 
EnD ELSE 
BEGIN COMMENT ARRAY REFERENCE} 
IF XREF THEN ENTERXCGETCLINK41 )+O08AC1581529])93— 
SCANS 
VALREQ ¢ SUBSCRIPTSCLINKsREALCVALREQ) 3 
IF ERRORTOG THEN GO TO XITs ~ 
IF NEXTSEQUAL THEN IF NOT RANDOMTOG THEN 
BEGIN NEXT©O3 QPe63 PREC#4 END 3 
IF EXPRESLT = 0 THEN EXPRESLT ¢ SUBSVAR3}. 
IF NOT VALREQ THEN 
BEGIN 
“TF GLOBALNEXT > SLASH AND EXPRESLT = SUBSVAR THEN 
BEGIN 
ARRY! 
TF BOOLEANCCACGETCLINK)),TWOD) THEN 
BEGIN 
AMITPAIRCTWODPRT»s LOD) 
T © A,ADDR3 
IF T $ 1023 THEN 
_ BEGIN. 
EMITL(T.£382101)3 
EMITODESCLIT(10)3 


-EMITLOT,(C40%8))3 
__EMITDESCLIT(1536)3_ 


EMITOCINKX)3 
END3 
EMITOCCTF)3. a 

END ELSE EMITPAIRCA.ADDR»LODIS 
EMITOCXCH)3 
GO TO xITs 

ENDS 

IF BOOLEANCCAGGETCLINK)),TWOD) THEN 


04114000 T 0093 
04114080 T 0093 
04114100 t 0097 
04114200 7 0094 
04114300 7 0100 
04114400 T 0103 
04114500 T 0103 
04114520 rt 0103 
04114530 T 0108 
04115000 tf 0114 
04115010 7 O119 
04116000 7 O118 
04117000 7 0117 


(04117100 T 0126 


04118000 Tt 0124 
04119000 T 0128 


04120000 7y 0125 


(04126100 y 0137 © 


04121000 ft 0125 


04122000 t 0127. 


04123000 T 0128 
04124000 r 0430 
04124100 T 0132 
04124200 Tf 0132 
04125000 T 0137 
04126000 T 0137 


04127000 T 0144 
04128000 rt 0141 


~~ OaT29000 F OL4s 


04129100 7 O1448 


04129200 T 0186 


“04130000 T O149 


~UaTs3000 FT «~UIS2 


. 


04131000 fT 015% 
04132000 T O51 


04134000 ft 0154 
04435000 y 0154 


—04T36000 F OL55 


04137000 T 901536 


EE ELIT a ne 


04139000 + 0164 
04440000 T 0163 
04141000 Tr 0163 


04143000 T 0165 
04444000 T 0166 


E 


i 


=<“ RHtee000 ¢ Mies ee 


Rae EROOO T 014G ee 


04146000 Tf 0166 
04147000 7 O16a8 


“04148000 t Of6a ~~ 


04149000 fT 0169 
04150000 T 0169 


04152000 r 0173 
041353000 F O174 


~~ Oa154000 F O74 


04155000 7 0174 


t 
| 
| 
| 


opie (O00 4 Olt ee 


| 
| 
j 
: 
| 
i 


i 


a’ 


| 
| 
| 


i 


' 


e 


BEGIN 
SPLITCA.ADDR)3 
IF AeSUBCLASS 2 DOUBTYPE THEN 
BEGIN. 
EMITOCCOC)3 
EMITOCDUP)3 
EMITPAIR¢4» XCH)3 
EMITOCINX)3 
EMITOCLOD)3 
EMITOCXCH)3 
EMITOCLOD)3 
END ELSE EMITOCCOC)3 
END ELSE 
EMITVCLINK D3 
ENDS 
END ARRAY REFERENCE3 
Gn TO SPECCHAR3 
END} 
IF GLOBALNEXT = NUM THEN 
BEGIN 
Ip NUMTYPE # STRINGTYPE THEN 
IF VALREQ THEN 
BEGIN 
NUMTYPEeINTYPE 3 
IF STRINGSIZF=1 THEN FNEXT#*STRINGARRAY(O) 
ELSE BEGIN 
IF STRINGSIZE>2 OR STRINGARRAYCL1).€C18230]2" 
FLAG(162) 3 et ea Te ne 
IF CFNEXTe#STRINGARRAYE1)¢£1 226] 8STRINGARRAY[0)(6812836)) 
0£686]>7 THEN NUMTYPE*REALTYPE 3 
END 3 
END3 
SAVEADR!I=ADR$3 CNSTSEENLAST#=TRUE3 
IF NUMTYPE = DOUBTYPE THEN 
EMITNUM2CFNEXT*DBLOW) ELSE EMITNUM CFNEXT)3 
OPTYPELITeIT#1] © NUMTYPES 
Ip EXPRESLT = 0 THEN 
BEGIN EXPRESLT © NUMCLASS3 EXPV 
ScAN3 
Ip NOT RANDOMTOG THEN caer ee 
IF NEXTSEQUAL THEN BEGIN NEXT¢03 OPe6} PRECe4g END 3 
Ir NOT VALREQ AND PREC > 0 THEN VALREQ ¢ TRUES 
Tr GLOBALNEXT * ID OR GLOBALNEXT » NUM THEN __ 
BEGIN FLOG(1)3 GO TO XIT END3 


" THEN 


¢ FNEXT ENDS © 


END3 

SPECCHARS te: 
IF GLOBALNEXT = LPAREN THEN — 
BEGIN 


SCAN, | Se eh ie ip al Dees Bee, Ze etetyn th © Ye yneat tase eaten 


OPTYPELITeIT+1) « EXPRC(TRUEDS 


IF GLOBALNEXT = COMMA AND EXPRESULT = NUMCLASS THEN 
BEGIN 
IF OPTYPECIT) > REALTYPE THEN FLAG(85)3 
_ SCANS Seale te. 
IF EXPRCTRUE) > REALTYPE 
OR EXPRESULT # NUMCLASS THEN FLAG(85)3 


94159000 T_ 


04469000 T 


04178000 7 


64163000 7 


04184050 7 


041546000 fT .. 
04157000 T 


04158000 7 


04160000 T 
04161000 Tt 0180 
04162000 tr 0184 
0182 
0183 


04163000 T 
04164000 T 
04165000 T 
04166000 Tt O184 
04167000 T 0185 
04168000 r 0186 


04170000 + 0188 
04171000 fT 0188 
04172000 T 0188 
04173000 t 0188 
04174000 T 0188 
04175000 T 0189 
04176000 rT 0189 
04177000 7 0190 
04177200 T 0194 
04177400 T O194 
04177500 TY 0192 
04177550 T 0194 
04177575 fT 0195 
04177600 7 0197 
06177700 7 
04177800 7 0204 
04177900 7 | 
0204 
046178500 ¢ 0204 
04179000 T 0205 
04180000 7 0206 
04181000 7 0210 
04182000 tT 0213 
04184000 T 0215 
64184100 7 
04184200 T 


0217 
02214 


04185000 7 O224 _ 


04186000 rT 0225 


04187000 tr 0227 
04188000 T 022 
041489000 + 6228 
04190000 T O228 
04192000 ~Y 0229 
04193000 7 0232 
04194000 7 0232 
04195000 ~ 0234 
041946000 y 0234 
04197000 TF 
64198000 T 0237 
04198100 y 0238 


‘onan 


0184) 


0186 


(O199 | 
0204 


0213 
O26 | 


TL a a a 


04191000 T 0229 00 


| eee ee 


e 
@ 
EMITOCXCH)S 
+ OPTYPECIT] * COMPTYPES 
@ | IF EXPRESLT = 0 THEN EXPRESLT « NUMCLASS3 
ENO ELSE EXPRESLT « EXPCLASS$ 
If GLOBALNEXT # RPAREN THEN 
@ BEGIN FLOG(108)$ GO TO XIT END; 
Go TO LOOPS 
ENDS 
@ WHILE PRECIP) 2 PREC DO 
me BEGIN. _ aoe. 
IF 17 <$ SAVYIT THEN GO TO XyT3 
©@ CODE © MAPCTI*OPTYPECIT=119x3 + MAPCT2*OPTYPELITII3 
CASE OPSTCIP) OF 
: BEGIN 
@ GO To xIT3 
BEGIN . aoe 
Ie Ti = LOGTYPE AND T2 = LOGTYPE THEN EMITOCLOR) 
oe ELSE FLAG(S1)3 
. It «© [T"43 
END3 
@ BEGIN 
Ip T1 = LOGTYPE AND T2 = LOGTYPE THEN EMITOCLND) 
ELSE FLAG(52)3 
& It © yT#43 
he er ee ee _ 7 
IF T2 = L@GTYPE THEN EMITOCLNG) ELSE FLAG(53)3 
] BEGIN T ¢ LESS3 GO TO RELATION END} 
BEGIN T ¢ LEQL3 GO TO RELATION END; 
BEGIN T « EQUL3 GO TO RELATION ENDS 
& BEGIN T © GRTR3 GO TO RELATION END3 
BEGIN T + GEQL3 GO TO RELATION ENDS 
BEGIN T « NEQL3 
e@ RELATION? 
If CODE < 0 THEN FLAG(54) ELSE 
CASE CODE OF 
] BEGIN 3 
BEGIN | | ; = 
FOCCHS)3 EPC9sSTD)3 EOCXCH)3 EOLC9)3 EOCXCH)S EF 
@ FOCAD2) 3 
ENDS 
FLAG(90)3 
@ BEGIN EMITPAIR(Os xCH)3 EMITOCSB2) END3 
EM1TO¢SB2)3_ 
FLAGCO0)3 
] FLAG(90)3 
—FLAGC9O)3 
IF T# EQUL AND Te NEGL THEN FLAGCS4)~ 
@ ELSE 
BEGIN 
EPC9sSTDS3 EQCXCHDS EOLC9)3 EQCT)S (0 
] EpPC9,STD 93 EacT)3s EOLC9)3 
_TeCIF TSEQUL THEN LND ELSE LOR)$ CODE+Os 
“ENDS 
] END RELATION CASE STATEMENTS 
@ If CODE > O THEN 
@ 


Rad 
* 
had 
© 
« 
* 
- 
= 
cd 
id 
. 
° 


04200000 


—-04211000— 


04199000 


04201000 
04202000 
04203000 
04204000 
04205000 
04206000 
04207000 
04208000 


(04208100 


04209000 
04210000 


04212000 
04213000 
04214000 
04215000 


_ 04216000 


04217000 
04218000 
04219000 
04220000 
04221000 
04222000 


04223000 


04224000 
04225000 


— 04226000 


— 04229000 | 


04235000 © 


~ 04245600— 


122 18 


04227000 
04228000 


04230000 
04231000 
04232000 
04233000 
04234000 


04236000 
04238000 


(04239000 


04240000 
04241000 


“04262000 - 


04243000 
04244000 


~ 042345000- 


04245400 
04245200 


04245400 
04245500 


04246000 


04245300 C 


Riga a a Sneak as a Ab 8 Baie RIT aR ns POTN LES Aa ot ts 


Cc 
C 


6 6 


T 


1 
oa 
om 
es 
bind 


_ START OF SEGMENT ateewenewn 122 
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TO CONG, NEXT S&G | 


04247000 


T 


0315 


, 


» 


s 


| 
| 


_-_ 


: : i i i 5 H ‘ : i i 
: : : i : : ; ‘ i 


«* 


BEGIN EMITOCXCH)$ EMITOCDEL)S EMITLCO) ENDS 


UO cere cvneing 


121 


04248000 r 0316 
EMITOCT)3 04249000 fT 0319 
OptyPelireltei) «+ LOGTYPES 04250000 ft 0320 
ENDS | et 04251000 T 0322 
IF CnDE < O THEN BEGIN FLAGC55)3 IT © IT*1 END ELSE 04282000 y 63292 
CASE CODE OF 04253000 T 0326 
BEGIN elias RO ai, Gu NS os Wee cee tyicio. ints techn. I type, Stade (tad, gn tae Bnet ORR OOO. 1 Oee6. 
BEGIN 04255000 t 0327 
EMITOCADD)3 04256000 T 0327 
IF Ti = INTYPE AND T2 = INTYPE THEN IT © IT#*% ELSE. : ..94257000 7 
OPTYPELITe¢IT*1) & REALTYPES 04258000 tT 0334 
ENDS 04259000 r 0334 
BEGIN TMeaD2 3 ee een 7 04260000 rt 0334 
RPLUSD! EPC9sSTD)3 EOCKXCH)$ EGLO9)3 EOCXCH)S EPCOsXCH)$ EDCTM) § ~~ ~~~ -" 0yD60010 7 OFI5 
OTYPs OPTYPELIT*#IT#=1J*DOUBTYPE 3 04260020 tT 0344 
END. 3. ees saree Aaa 04260030 7 0343 
BEGIN TM*ADDS GO RLESSC END 3 04261000 7 0343 
RFEGIN 04262000 T 0345 
EMITPAIR(Os XCH)3 7 04263000 7 0345 
EMYTOCAD2)3° 04264000 7 0346 
IT ¢ 1T=13 04265000 7 0347 
ENDS . 04266000 T 0348 
BFGIN EMITOCAD2)3 IT « IT#1 ENDS 04867000 7 0349 ~~ 
BEGIN TM*ADD3 GO DLESSC END 3 04268000 7 0354 
BEGIN EMITOCADD)S IT * IT#1 ENDS 04269000 T 0353 
BEGIN TMeabO? GO CLESSH END 3 ~O4S7T0000 7 03355 
BEGIN TMeADD3 GO CLESSC ENDO 3 04271000 t 0357 
END aDD CASE STATEMENTS _ 04272000 ¥ 0359 
“START OF SEGMENT aaneteneee 
123 1S 10 LONGse NEXT SEG 
IF CnDE < 0 THEN BEGIN FLAG(55)3 IT « IT#1 END ELSE 04273000 t 0360. 
nae Gabe OF cn cin een RE PE 
BEGIn 04275000 T 0364 
BrGIN eee 04276000 FT 0364 
EMITOCSUB)3 | 04277000 T 0364 
IF Ti = INTYPE AND T2 # INTYPE THEN IT © IT*1 ELSE 04278000 fT 0365 
_OPTYPECTTeIT"1) © REALTYPES i 94279000 FT 0369 
ENDS. 04280000 Tt 0374 
BEGIN EQ(CHS)3 TMe*AD23 GO RPLUSD END 3 04281000 T 0372 
BEGIN TMeSUB 3 Beier lees pace Uae teyt eae ai aaehete sly ete tala ate peu NS Sin te 7 04282000 7 0374 
RLESSC! ES1CTM)3 GO OLESSC1 3 04282010 7 6378 
EwD 3 04282030 tT 0379 
BFGIN oa = Mahe: 94289000 T 0379 
EMITPAIR(COs XCH)3 04284000 t 0379 
EMrTOCSB2)3 04285000 tf 0380 
IT ¢ 1Te9is 04286000 y 0384 
END3 04287000 t 0382 
BEGIN EMITOCS82)3 IT + IT=1 END} 04288000 7 0383 
BEGIN TMeSUB 3 04289000 T0988 | 
DLESSC! ESIC TM)3 EQCXCH)S EQCDEL) 3 04289005 tT 0386 
DLESSCit EOLC9)3 IF TMeSUB THEN EOCCHS)3 GO CTIMESR2 3 04289007 T 0394 
END 3 _04289010 7 0394 
BRGIN EMITOCSUB)3 IT + IT ENDS 04290000 7 0394 
BEGIN TMeSUB 3 04291000 T 0397 
CLESSD! EOCXCH)s EOCDEL)3 EOQCTM) 3 04291010 7 0398 
CTYPS OPTYPECIT¢IT@1]¢COMPTYPE 3 04291015 T 0400 
END 3 04291020 T 0403 


e ®@ 


BrGIN TMeSUB 3 04292000 7 0403 | 
CLESSCt ES1¢TM)3 GO CTIMESR1 3 04292010 7 0404 
END 3 04292020 T 0408 
ENO SUBTRACT CASE STATEMENTS 04293000 tT 0408 


START OF SEGMENT saanktbwene 124 
124 7S 10 LONGs NEXT SEG 121 


BEGIN % HANDLE NEGATIVE NUMBERS CASE STATEMENT, 04293100 T 0409 
EXPVesEXPV 3 . . - ~~ 048939200 7 0409 
IF To §$ REALTYPE THEN EMITOCCHS) ELSE 04294000 T O410 
IF To = LOGTYPE THEN FLAGC55S) ELSE . a a 04295000 T O412 
IF To = NOURBTYPE THEN EMITOCCHS) ELSE Foe Sie 04296000 F O4TS 
IF To = COMPTYPE THEN 04297000 TY O417 
BEGIN ; _ 04298000 y O48 
EMITOCCHS)$ EMITOCXCH)3 oe "64399000 T D419 — 
EMITOCCHS)3 EMITOCXCH)3 04300000 ft 0420 
END ELSE FLAG(S5)3 e heh de Suh ee 04301000 T 0422, 
END nF NEG NUMBERS CASE STATEMENT 3 04301100 7 0423 
IF CnDE < 0 THEN BEGIN FLAG(55)3 IT + IT=1 END ELSE 04302000 tr 0424 
CASE CODE OF sic cee, arwioduies. dcx ait te ductbang eduen e cbnaiiiihar  teanetarn ds Soon - nso, ie _ 04303000 T O427 ~ 
BEGIN 04304000 T 0428 
REGIN 04305000 T 0428 
EMITOCMUL)3 . 04306000 7 0428 
IF Ti 2 INTYPE- AND T2 @ INTYPE THEN IT © IT*1 ELSE "00307000 7 06429° 
QPTYPELITe1T*1) © REALTYPES 04308000 7 0432 
EnD3 | ie esti ee n hn | bn ee G+ ee 94309000 TF 0435 
REGIN TMeML 23. GO RPLUSD END 3 04310000 + 0436 
BEGIN ES23 GO OTIMESC END 3 04311000 7 0437 
BEGIN. ts 2 otVeccaiseg sabes chewudecatelnash sedate dling vation atate ce OSE OO OT OB Be ce foe: 
EMITPAIRCO» XCH)3 04313000 7 O442a 
EMYITOCML2)3 04314000 Tf 0443 
Pk 6 ORD at 0 ee mths Seihe : : 04315000 7 0444 
Te os SEATEOOD F O8NE" 
BFGIN EMITOCML2)3 IT « IT=1 END3 043147000 ¢ 0445 
_ BEGIN £S23 EQCXCH)S EQCDEL) # -_ 04318000 rT 044g — 
OTIMESC: EOLC9)3 EOLC17)% EOCMUL)S GO CTYP 3 04318010 T 0453 
End 3 04318020 7 0456 
BEGIN TMeMUL 3 eee “5 DEbiraahecs ee titees <eieeg staccato GaN eRceses 04319000 ¥ 0457 
CTIMESR: EPC9sSNO)3 EQCTM) 3 , "04319010 T 0458 — 
CTIMESRYtEOCXCH)S EOL(9)3 EQCTM) 3 04319020 7, 0459 
CTIMESRAtEO(XCH)3 GO CTYP 3 Bhshl wsdl Sees hit adobe SecA BAAR ES ete sre ittae ete ne, pg ENDO OOD is oven 
END 3 04319040 T 0464 
BEGIN TMeMUL3 GO COIVBYD END 3 04320000 rT 0464 
Bas Be ea tee eh ns MaTH(2s 26» COMPTYPE)3 4921000 T0066 : 
ENO MULTIPLY CASE STATEMENTS 04322000 tT 0468 °° }°}3 © 


START OF SEGMENT seuetentew 125 


_125 1S 10 LONGs NEXT SEG 121 


IF CODE < 0 THEN BEGIN FLAGCS5)3 Iv « It*f ENO ELSE = = = = = "66983000 T 0469 


CASE CODE OF 04324000 T 0472 

2 BEGIN gy eet ee 04325000 T 0473 
Ip Ti = INTYPE AND T2 = INTYPE THEN ~ ee "06926000 FT OPQ 

BrGIN EMITOCIDV)3 IT « JT*1 END ELSE 04327000 T 0475 

BEGIN EMITOCOIU)S OPTYPECITe#IT*1) ¢ REALTYPE ENDS 04328000 T 0478 

EPC9*sSTD)S EPCI7+»STO)S EPCO»XCH)S EOLC17)3 EQLC9)3 EQCDV2) 3 04329010 T 04862 

Ae Gn DTYR 3 04329020 7 0487 

MATH(C 1s 299 COMPTYPE)S 04330000 T 0488 

a, "4 oo. 4 - a e ‘ ‘ i * ’ 


i 


! 
| 
i 


t 
3 
1 


{ 
i 
if 
1 


BEGIN 

EMITPAIR(O» XCH)3 

EmMrTocDv2)3 

YT «© yT"43 
EnD3 
BEGIN EMYTOCOV2)3 IT « IT*i END3 
MaTHC2s 32» COMPTYPE)3 
BrGIN TMeDIUS GO CTIMESR END 3 
BEGIN TMeDIU 3 


CDIVBYD: EDCXCH)} EQCDEL)3 GO CTIMESR 3 


ENO 3 ' 
MATH( 2» 35» COMPTYPE )3 


ENO oF OTVIDE CASE STATEMENTS 


IF CnDE < 0 THEN BEGIN FLAG(55)3 IT ¢ IT*™4 END ELSE 
BEGIN 
IF CnDE = 0 AND T@ = INTYPE AND 


CNSTSEENLAST THEN 


BEGIN 


Ir T1 = INTYPE AND T2 = INTYPE THEN IT ¢ IT#1 ELSE 


OpTYPeCITeIlT=1) ¢ REALTYPES 


EYPVitaslLINKks 
Arzi3 ADRtsSAVEADR} 
WHILE EXPV DIV 2 4 0 DO 
BFGIN 
EMTTOCDUP)3 
IF BOOLEANCEXPV) THEN BEGIN Ae#atis EMITOCOUP) ENDS 
EMITOCMUL D3 
EXPV « EXPV DIV 23 
ENDS en, ae et DIV Sele ee PO en ROE Tt Ee eee eR a reer e Ae PRM Tt 
le EXPV = O THEN BEGIN EMITOCDEL)$ EMITL(1) END ELSE 
WHILE A « Ami # 0 DOO EMITOCMUL)3 


END ELSE. 
BEGIN 


EMITOCMKS)3 
EmITL¢C€QdeE)3 


EMETVONEEOC"eXTOI "> INTREUNTD)9P TU crn enon nee ce 


CaSE CODE OF 


START OF SEGMENT 


BEGIN 
BEGIN 


BEGIN. 
BEGIN 
BEGIN 

BEGIN, 
BEGIN 
BEGIN 
BEGIN 
BEGIN 


EnO OF POWER CASE STATEMENTS 


ENDS 


END} 


a ear 


04331000 T 0490 
04332000 T 0490 
04333000 7 0494 

. 04334000 T 0494 
04335000 T 0493 
04336000 T 0493 

04337000 7 0496 
04338000 T 0497 
04339000 ¢ 0499 

04339010 T 0500 __ 
04339020 T 0503 
04340000 7 0503 
04341000 7 0505. 

aekaehtakak 


10 LONG» NEXT SEG 


04342000 7 0506 


04343000 7 0509 
04344000 7 0510 
94345000 P. 
04346000 T 0512 
04347000 7 0512 
04348000 T0516 


04349000 Pp 0519 
04350000 P 0519 


| 


oe 


121 


i) eee 


1 7 ieee cle 


04351000 7 0524 
04352000 y 0523 
04353000 7 0523 

04354000 7 0524 
04355000 + 
04356000 fr 0528 
04357000 t 0529 

95388000 7 089 
04359000 tT 0532 
04360000 7 0536 

~ 04361000 7 
04362000 ¥ 0837 
04363000 7 0837 
OEIGAOOO- TT -OS387 
04365000 fT 0540 
04366000 T_ 


EMITOCDELI$ OPTYPECIT*ITeljeIF (TimINTYPE AND T2sINTYPE) 

THEN INTYPE ELSE REALTYPE END} 
EMITOCOEL)3 OPTYPECIT¢I Tel) ¢ OOUBTYPE ENO} 
EMITOCDELI# OPTYPECITeIT=1}*COMPTYPE END 3 
EMITOCDEL)$ IT © IT=4 ENDS 
EMITOCDEL)3 EMITOCDEL)S IT ¢ IT#1 ENDS minh ce dandietenc. 
EMITOCDEL)3 EMITOCOEL)3 OPTYPECIT+IT}1J¢COMPTYPE END 3 
EMITOCDEL)2 IT © IT#1 ENDS 
EMITOCDEL)S EMITOCDELIS IT ¢ 1792 ENO ll. 
EMITOCDEL)S EMITOCDEL)S rTelTei END 3 


127 18 


04367000 y 0540 
04367500 tf O844 


04368000 7 08 
04369000 + 0550 
04370000 T 0554 
04371000 T 0556 __ 
04372000 0560 — 
04373000 tT 0564 
04374000 T 0366. 
04375000 7 0570 
04376000 T 0573 


O5a7) 


START OF SEGMENT wewtetawww 


10 LONG, NEXT SEG 


04377000 T O573 
04378000 T_ 


04379000 T 0574 


START OF SEGMENT weutwwntas 


0540 


128 


Cua ea eae 


| 
i 
i 
| 
| 
! 
i) 


hes ee ee ee 
121 


ST ian ce et Pits 


e ®@ 


| 


| 
| 
| 
| 
| 
| 


I 
| 
1 
i 
i 
H 


| | 
| | 
| 


hd 
* 


Ip ¢ [P43 
END; 
EXPRESLT ¢ EXPCLASSS 
STACK? 


PROEYpe*eyP4+1) ¢ PREC} 
OPSTrIP] « OF3 


IF PREC > 0 AND PREC S$ 4 THEN 
BEGIN 
ScAN3 LINK ¢ FNEXT3 
Ip NEXT = PLUS THEN GO TO LOOP? 
Ie NEXT # MINUS THEN GO TO NOSCAN3 
PREC « 83 OP * 123 
Gn TO STACK3 


END3 
GO To LOOPS 
XIT! IF IP # SAVIP THEN FLOG(56)3 


IP © SAVIP#=13 

EXPR «+ OPTYPELITI3 

YF OPTYPECIT#41)] # O THEN FLOGC56)3 

IT « SAVIT#43 

EXPRESULT « EXPRESLT3 

EXPVALUE © EXPV3 

EXPLINK ¢ EXPLNKS 
IF DEBUGTOG THEN FLAGROUTINEC™ EXPRE"s"SSION “sFALSE) 3 
END EXPR3 


PROCEDURE FAULT (x)3 
VALUE X3 
REAL X3 
BEGTN REAL LINKS LABEL xIT3 


SCANS IF GLOBALNEXT # LPAREN THEN BEGIN FLAGC106)3 GO XIT END? 
SCANS IF GLOBALNEXT # ID TKEN BEGIN FLAGC66)3 GO TO XIT ENDS 
IF X = 1 THEN POPRT(Os0] © PDPRTCO»0) & 1644947514) ELSE 


POPRT(£020) © POPRT £000) &@ 10643 8479433 
EMITOPOCLIT(C41)3 EMITOCOUP)S 


IF X = 1 THEN BEGIN EMITLC2)3 EMITOCXCH)S EMITLCL) ENO > 


ELSE EMITL(6)3 
EMITOCLND)3 
mS er ela 3 LL Seca age Re 
~EMITOCSUB)} 
IF X = 2 THEN 
_BEGIN EMITOCDUP)S EMITLC3)3 EMITOCSSN) SEMITOCEQUL)S EMITLO2) 


JEMTTOCBFC) 3 EMITOCDEL)SEMITL(2)3 


ENDS 
IF X m@ { THEN EMTTLC30) ELSE EMITL¢asj)5 
EMITOCLNDI2 EMITLCGLISEMITOCSTO)S 
SCANS IF GLOBALNEXT # RPAREN THEN FLAG(108)3— 
SCAN3 Lan as 
XIT?! 


LLINK « GETCGETSPACECFNEXT))3 EMITPAIRCLINKsADORsISD)S 2 


04404325 7 0015 
04404350 7 0017 


RaOeaT Se D0se 
04404425 tT 0022 
04404435 Tt 0022 


"08409480 ¢ 0024 


04408478 + 0028 

04804500 7 0026 
04404550 T 
04404570 fT 

~~ 04404600 FT 
04404625 1 

04404680 T 0044 

04604660 T 0044 

04404675 T 0044 


0032 

0032 
OIE 

0039 


128 IS 17 LONG, NEXT SEG 121. 
04380000 7 0575 
04381000 T 0576 
04381100 t 0578 
04382000 T 0576 
04383000 7 0579 
04384000 7¥ 0581 
(04385000 + 0582 
04386000 rt 0582 
04387000 r 0584 
04388000 tT 0584 
04389000 r 0886 
04390000 Tt 05887 
04391000 f O58 ~~ 
04392000 T 0590 
04393000 T 0590 
04394000 fT 0590 
04395000 T 0594 
04396000 7 0593 
04397000 r 0594 
04398000 7¢ 0595 
04399000 fT 0598 
04400000 T 0599 
04401000 fT 0600 
04402000 T 0600 
(04403000 + 060; 
04404000 7 0603 

121 1S 610 LONG, NEXT SEG 
04404050 tT 0513 
04404100 7 0513 
O4a0ay25 tT 0513, 
04404150 Tt 0513 

START OF SEGMENT eeeteeenwe 129 
04404200 tT 0000 eae. 
04404250 fT 0003 

nn -OM408275 T0006 
04404300 fT 


04404528 7 0030 


re 


(0 © Si a peices laa 


, ¢ 4 , 


St 
e 


ENO FAULT 


oP 


PROCEDURE SUBREF3 
BEGIN RerAL LINKsINFC3 


REAL ACCIDENTS 
LABEL XIT3 
IF DEBUGTOG THEN FLAGROUTINEC" SUB» “REF ",TRUE ) 3 


IF NAME = "EXIT ™ THEN 
BEGIN 

RETURNFOUND ¢ TRUE3 

EMITLC1)3 

EMITPAIR(16» STD)3 

EMITPAIR¢10, KOM)3 . 

EMITPAIR(C 5S» KOM)3 

PUTCFNEXT4+1 9 “eevee” )3 

Se AN3 a 
END FLSE IF NAME®"ZIP " AND NOT OCINPUT THEN 
BEGIN 


EMITOCMKS)3 
EmITLCO)$ EMITLCO)S & DUMMY FILE ANO FORMAT 


EMITPAIRC#1eSSN)3 
EMITBC™1LsFALSE)S LADRICLAXS ADJUSTS DESCREQ*FALSE3 
IF aDR 2 4085 THEN BEGIN ADR*ADR+13 SEGOVF END} 
ACCIDENT#PRGDESCBLOR(0»0sA0Rel36810}41sNSEG)3 
EMITOPOCLITC19)3 
EMITOCGFW)3 
LYSTART « ADR&NSEGETOSEGNO]$ ADJUSTSSCAN3 
If GLOBALNEXT#ZLPAREN THEN BEGIN FLAG(106)3G0 TO XIT ENDS 
SCANS IF GLOBALNEXT#ID THEN BEGIN FLAGC66)3 GO TO XIT END} 
LINOX © FNEXTS SCANS XTA © GETCLINDX4193 
IF GLOBALNEXT*RPAREN THEN BEGIN FLAGC108)3 GO TO xIT END) 
LINDX © GETSPACECLINDX)3 
Ip TeCLINFA*GETCLINDX)) eCLASSZARRAYID THEN 
BEGIN FLAG(66)3 GO TO xIT END3 
If XREF THEN ENTERXCXTASORLINFAL 153152199 )3 
EMITPAIRCLADDRELINFAs ADDR LOD) 3 
IF BOOLEANCLINFA,FORMAL) THEN 22 2 
BEGIN 
IF T & GETCLINDX4#2)9<0 THEN EMITOPDCLITCT, SIZE) 
ELSE EMITNUM(TeSIZE)3 EMITOPDCLITCLADDR=1)3 EMITOCCTF) END 
ELSE EMIFNUMTGETCLINOX42),BASENSIZE)S EMITLELA)S EMYTOCSYDI33 
EMITLCLINFA sCLASNSUB&O(4424781393 EMITLC1993 EMITOCSTOD3 
BRANCHLITCLISTART»TRUE)DS EMITLO19)3 EMITOCSTD)S 
EMITOCRTS)S ADJUSTS ~~ ae 
FMITLC1)3 EMITOCCHS)S EMITLO19)3 EMITOCSTO)3 
EMITDESCLITC19)$ EMITOCRTS)3 FIXBCLADR1)3 DESCREQ*FALSES 
EMITPAIRCACCIOENTsLOO)3 EMITOPDCLIT(7)3 EMITOCFTF)3 
EMITLO6)3 % EDITCODE 6 FOR ZIP 
EMITVCNEEDC™FTOUT"»INTRFUNID))3 SCAN 


ENO ELSE IF NAME = *OVERFL* THEN FAULTC2)~ 
ELSe IF NAME = “DVCHK " THEN FAULTC4) 


| 
1 
1 
| 
1 


129 1S 


START OF SEGMENT 


IF TSSEnITOG THEN IF NAMEa"ZIP " AND NOT DCINPUT THEN TSSEDCNAME#3) 3 


04404700 fT 


48 LONGs NEXT SEG 


0045 


G6s6 ee 


04405000 rt 0513 
“04406000 F 0513 
kekREKaH ES 
04406010 F 0000 
04406020 Y 0000 
04406025 T 0000 
(04406030 T 0002 
04407000 t 0006 
04408000 7 0007 
04408100 y 0008. 
04409000 T 0009 
04410000 tT 0010 
04411000 T 0011 
04412000 y 0012 
04413000 tT 0013 
04414000 7 0015 
04415000 t 0015 
04415010 7 0023 
04445011 7 0023 
04415020 7 0024 
04415021 T 0025 
04415030 ft 0027 
04415040 7 0030 
04415050 7 0033 
04415070 7 0036 
04415080 7 
04415090 tT 0037 
04415100 7 0040 
04415110 T 0045 
04415120 7 0048 
04415130 7 0054. 
04415140 T 0083 
04415150 T 0054 
. 04415160 7 0057 
04415165 7 0059 
04415170 T 0062 
04415180 7 0064 — 
04415190 7 006 
04415200 T 0068 
04415210 T 0068 
~O4475220 7 
04415230 7 0077 
04415240 tT 0084 
Sat S230 F 
04415260 Tt 0064 
04415270 TF 0087 
64415280 T 
04415290 T 0093 
04415300 7 0094 
04415310 T 
04415320 T 0099 


he 


130 


Spore oes 


~SORs 


60g tS ee 


tT aaah a 


| 


ELSE 
BEGIN 
LINK © NEEDCNAMEs SUBRID)3 
IF XREF THEN ENTERXCXTAsO&GETCLINK)C1581585])3— 
EMITNOMKS)3 
SCAN} 
IF GLOBALNEXT © LPAREN THEN 
BEGIN PARAMETERSCLINK)$ SCAN ENO ELSE 
TF NOT BOOLEANCCINECeGETCLINK+2)).0C1!1)) THEN 
 PUTCLINK+2e"INFC) ELSE. 
IF INFC.eNEXTRA # 0 THEN 
BFGIN XTA © GETCLINK4+1)3 FLAGC28) ENDS 
EMITYCLINK)3 


— 


ENDS 
XIT? 

IF DEBUGTOG THEN FLAGROUTINEC™ 

END SUBREFS | 


SUB” s "REF “sFALSE) 3 


PROCEDURE DEECLAREPARMSCFNEW)3 VALUE FNEWS REAL FNEWS 


BEGIN 
REAL I» Ts NLABELSs 


IF DPEBUGTOG THEN FLAGROUTINEC’DECLAR”s "EPARMS",TRUE 2 F 
INFA © GETCFNEW)3 
IF INF AsSEGNO #0 THEN BEGIN XTA * NNEWS FLAGC25) ENDS 
INFA.SEGNO © NSEGS PUTCFNEWSINFA)S 
ENTRYLINKEELX} * O & FNEWCTOLINK) & NEXTSSCTOADOR)3 
FOR y ¢ 1 STEP 1 UNTIL PARMS: 00 a 
BEGIN 
EXTRAINFOCNEXTSS.IR»NEXTSS,IC] © PARMLINKCII3 
NEXTSS «© NEXTSS#13 Saree 
IF T © PARMLINKCTI) ¢ 0 THEN 
BEGIN 
GETALLCT» INFAsINFBs INFC)3 
IF BOOLEANCINFA eFORMAL) THEN 
BEGIN 
IF INFAeSEGNO # ELX THEN 
BEGIN XTA « INFB 3 FLAG(26) ENDS. 
END ELSE IF CINFA < 0 AND INFA,ADDR < 1024) OR BOOLEANCINF AeCE) 
THEN BEGIN XTA ¢ INFB3 FLAGC 107) END3 
INFA “© INFA = 8 4CTOFORMAL) & ELXETOSEGNO)3 
INFC «BASE ¢ T3 
PUTCTsINFA)S PUTCT+2sINFC)3 


INFAs INFBs INFC3 


END ELSE NLABELS ¢ NLABELS*+13 
END3 
IF NLABELS > O THEN a 
BEGIN ENTRYLINKCELX J,CLASS ¢ NLABELS) ~ 
If LABELMOMs0 THEN BEGIN BUMPLOCALS3 LABELMOMeLOCALS4#1536 ENDO3 
END3 
GETALLCFNEWsINFAsINFBsINFC)3 | 
« TF BOOLEANCINEC.CL121]) THEN 


a. a, * . ao. ‘ ry ‘ * id ‘ 


130 1S 


“04430000 T 
04433000 7 
~~ 08438000 T 
~ 04437000 1 
“08440000 Tt 
04443000 T 
~ 04445000 FT 
"OG4H5000 “7 
~ 04652000 Tt 
“04455000 7 


04415330 T 0103 
04416000 T O104 
04417000 tT 0106 
04417100 7 0107 
“04418000 + OLto 
04419000 fT O111 
04420000 t 0112 
~—6OGhA1000 FF COLL 
04422000 T 0114 
04423000 tT 0117 
08624000 T 0119 
04425000 tr 0121 
04426000 fT 0124 
04426500 - 0125 
04426700 fT 0125 
04427000 y O125 
04427010 + 0128 
04427025 T 0126 
04428000 Y 0128 


133 LONGs NEXT SEG 


04429000 T 0513 
Osi3: 


04431000 TF 0513 


7 START OF SEGMENT hataielededchahahell 


“OSST1OLO T- 
04432000 7 


0000 ~ 
0002 
0003 
0004— 
0009 
0012 
0016 
0016 
0019 
6020 
0022 
0022 
0024 
0024 
0025 


04435000 T 
04436000 T 


04438000 T 
04439000 T 


04441000 fF 
04442000 T 


04443100 T 
04444000 7 
04445100 fr 0028 
04445200 7 


04447000 T 
04448000 T 


Ghias006 * 00a0 


04450000 T 
04451000 T 


04453000 ft 
04484000 fT 


04456000 T 


Bm 


dee 


aT Gee 


{ 


t i 1 i 


BFGIN 

IF INFCeNEXTRA # PARMS THEN 

BEGIN XTA ¢ INFBS FLOGC41)3 
PARMS « INFCNEXTRAS 

END} 

T « INFC,ADINFOS 

FOR I ¢ 1 STEP 1 UNTIL PARMS DO 

IF NOTCPARMLINK(CI] = 0 EQv 
EXTRAINFOCC(T+I11)oIRCT+lelyeICeCLASS = LABELID) THEN 
BEGIN IF PARMLINKCI) = 0 THEN XTA © "« " 


ELSE XTA © GETCPARMLINKEIJ41)3 — 
FLAGC40)3 
ENDS 
ENO 
Ft SE 
BEGIN 


IF PARMS = 0 THEN INFC © #INFC ELSE 
INFC © @CINFC & PARMSETONEXTRA) 
& NEXTEXTRALTOADINFO])3 
PUTCFNEW+2eINFC)3 
FOR I ¢ 1 STEP 1 UNTIL PARMS DO 
BEGIN Ot dit mitts 
EXTRAINFOCNEXTEXTRASIR*sNEXTEXTRACIC] © O & 
CIF PARMLINKCI] = O THEN LABELID ELSE O)LETOCLASS)3 
_NEXTEXTRA © NEXTEXTRASL3 
END3 
ENDS 
IF ELX ¢ ELX+1 > MAXEL THEN BEGIN FLAG(128)3 ELX « O ENDS 
IF DEBUGTOG THEN FLAGROUTINEC*DECLAR™ s"EPARMS™sFALSE) 3 
END DEC, AREPARMS3 


PROCEQURE IOLISTCLEVEL)3 
BEGIN ALPHA LADR2.T3 


REAL LEVELS 


BOOLEAN A3 
INTEGER INDxs I, BOL INKsNSUBS;3 
LABEL ROUND» XIT»ERROR»LCOP*SCRAMS ~ 
INTEGER STREAM PROCEDURE CNYNAMCIDEN)3 VALUE IDENS 
BEGIN LABEL XIT3 some te 
SI te LOC IDENS SI t= SI + 


Rae aay gag e 


sCIF Sc = "* * THEN JUMP OUT TO XITESI $s SI+1S TALLY $# TALLY41)93 


XIT® CNTNAM %= TALLYS 
END CNTNAM3 


IF DEBUGTOG THEN FLAGROUTINEC* "sTRUE ) 3 
ROUND! DESCREQ « TRUES 
“LOCALNAME %# FALSE} 


IF GLOBALNEXT = SEMI THEN GO TO XIT3 


TOL" "IST 


—- 04467000 


~ 04470000 © 


— 044840T~ © 
AML TS. 


94488200 


04457000 
04458000 


04459000 


04460000 


04461000 


04462000 
04463000 


04464000. 


04465000 
04466000 


04468000 
04469000 


04471000 
04472000 


“06473000 


04474000 
04475000 


04476000 


04477000 
04478000 
04479000 
04480000 
04481000 


04482000 


04483000 
04484000 


04485000 


04486000 
04487000 


— START OF SEGMENT 


04487050 


_ 04487100 


04488000 
04488100 


04488300 
04488400 


04488500 


0464690000 


‘04488600 


04489000 


04491000 


_ 04492000 


04492100 
04493000 


ee ee 


T 
T 


Weetkeetan 


aa ae 


Pen See 


0058 
0059 


0060 
0062 


0063 


0063 
0068 


0067 


0068 
0073 


0080 
0080 


-o08s 


0083 
0083 


0083. 


0085 
008? 


~ 0089 


0090 
0092 
0092 
0094 
0098 


— 0099 


0104 
0101 


“96g 


0107 


AL3 LONG» NEXT SEG 


0513 
0513 


“076 oo 


aos 


. 6 in eae ee ee ae 


® ® 
e @ 
IF GLOBALNEXT = STAR THEN 04493100 7 0010 
| BEGrN IF NOT NAMEDESC THEN 04493150 7 OOff 
e TV 82 ENTERCORLISTSIDCTOCLASSJeLISTIDISLISTIO¥1)3 04493200 T 0013 e 
LOCALNAME #® TRUES NAMEDESC t= TRUES SCANS 04493300 Tt 0017 
END; 04493350 T 0024 7 
@ IF GLOBALNEXT = ID THEN 04494000 ft 0021 @ 
BEGIN LINDX © FNEXTS | - ee 04495000 T 0024 
SCANS XTA © GETCLINDX41)3 04496000 rt 0023 
® IF GLOBALNEXT = EQUAL THEN xRETURN TO CALLER 04497000 t 0025 e 
BFGIN IF CLINFA*GET(GETSPACECLINOX)))eCLASS # VARID THEN FLAG(50)3 04498000 T 0026 
SCRAM! IF (LEVEL ¢ LEVEL@1) < 0 THEN FLOGC97)3  94ag8{O0 TF «+0036 ss 
& GO TO XIT; 04498200 7 0034 @ 
ENDS | 04499000 T 0037 
04500000 tT 0037 e 
@ IF DATASTMTFLAG AND SPLINK 2 0 THEN SDECLARE OWN 04500100 T 0037 @ 
BEGIN -_ — 04500200 7 0038 
IF BOOLEANCGETCLINDX)»FORMAL) THEN FLAG(147)3 04500300 7 0039 . 
e 1F SPLINK>1 THEN 04500310 T 0044 e 
; IF GETCLINDX).ADDR>1023 THEN |= = FLAGCL74)$3 04800320 tT 0042 
LINDX « GETSPACEC*LINOX)3 dascoaed + O04RL : 
& IF BOOLEANCGETC(LINDX).E@) THEN FLAGC168)3 04800420 7 0047 @ 
a END ELSE LINDX ¢ GETSPACECLINDX)3 04500800 rT 0050 
Ie T ¢ CLINFACGETCLINDX))eCLASS > VARID THEN FLAG(50)3 04500600 ry 0081 
 ] 4 IF XREF THEN ENTERXCXTA,CZELINFALIS315193)3 04500655 7 0055 & 
- IF GLOBALNAME OR LOCALNAME THEN ee 04800700 T 0058 
IF NAMEINOt= NAMEIND41 GTR LSTMAX THEN FLOG(161) 04500725 T 0060 - 
e ELSE NAMLISTCNAMEIND] &% XTA &@ CNTNAMCXTAD(994583)3 04800750-T 0063 ® 
7 If T= ARRAYID THEN She wings Clea telageateraaee tSee +ehge aged, Kanes eM LOOU AT. 10087: 
IF GLOBALNEXT # LPAREN THEN 04502000 T 0066 
e BEGIN [TF SPLINK # 1 THEN 04503000 7 0069 @ 
rene BEGIN vrbatalass yaluatis 8 d SAAS ene aoe ae. tem 2 04503004 7 O070 
EMITLCOSS | 3 04803008 7 O074 
@ EMITPAIRCLADDR « LINFAsADDReLOD)3 04503010 t 0072 r 
: _EMITOCFTC)3 04503020 Tt 0074 
FMITOESCLITC2)3 (04803030 T 007% 7 
@ EMITOCINX)3 04803040 T 0078 e 
_ _EMITOCLOD)3 Mewed Panties tare Be 04503050 fT 0076 
“END ELSE EMITPATRCLADORSLINFA ADDR» LOD) “04503055 7 0077 
e NSUBS t= (T t= GET CLINDX#2))eNEXTRAS 04503100 T 0079 e 
IF GLOBALNAME OR LOCALNAME THEN | 7 04503125 7 0082 
BEGIN 04503150 + 0084 
@ IF NSUAS GTR SAVESUBS THEN SaVESUBS ta nNSUBS} 04503160 T 0084  ) 
TF NSUBS GTR NAMLISTCO) THEN NAMLISTCO] s= NSUBSS 04503170 T 0086 
NANCISTCNAWETND) LLI8] 16 NSGBST on oc nee i es EE Ge ” 
@ INDX t= "43 04503180 7 0094 e 
INFA t= GETCNEED(™.SUBAR"sBLOCKID))ADORS 04503190 tT 0092 
ROL INK FE TAO INFOS {3 pg iene eS “OasoTZ00 T O09s” : 
) END3 04903225 T 0097 @ 
IF BOOLEAN CLINFAsFORMAL) THEN 04504000 tr 0097 
~SERIN baie est ieee oe  “GESOSUOU-T-- 009 Fn oo 
 ) IF 7 LSS 0 THEN EMITOPDCLITC(T. SIZE) 04505200 y 0098 r 
_ ELSE EMITNUMCTsSIZE)3 04506000 T 0099 
EMITOPOCLITELADDR STP 0 ee gg OTe = 
e EMITOCCTF)) 04508000 t 0108 e 
END ELSE EMITNUMCT.»BASENSIZE)3 04809000 r 0106 
IF GLOBALNAME OR LOCALNAME THEN ~ 04509050 TF 0108 
e FOR I t= 1 STEP 1 UNTIL NSUBS DO 04809100 7 0109 e@ 
&@ * , ao4 a ’ @ 


BEGIN IF T t= EXTRAINFOCC 
BOLINK.IC] LSS O TH 
ELSE EMITNUM(T)3 
EMITNUMCINDX &3 INDx41)3 


BOL 
EN 


EMITDESCLITCINFADS 
EMITOCSTD)3 
ENDS Shae Se 1ces 
EMITL(18)3 EMITOCSTD)S 
END ELSE 


BEGIN SCANS 
A *(IF GLOBALNAME OR LOCALNAME 
THEN SUBSCRIPTS(LINDXs4) ELSE SUBSCRIPTSC(LINDX#2))3 
SCANS 
END 
ELSE FMITNCLINOX)3 
Ir GLOBALNAME OR LOCALNAME THEN 
BEGIN EMITOPDCLITC18)3 EMITNUMCNAMEIND)3 
EMITOC439DIA)3 EMITOC3*DIB)3 EMITDC15»TRBDS 
EMITLC1823 EMITOCSTD)3 


EnD3S 
EMITLCLINFA, CLASNSUBRO[44247241)3 
EMITL¢20)38 EMITOCSTO)3 


IF AOR > 4083 THEN 
BEGIN ADReAOR+13 SEGOVF END 3 
BRANCHLITCLISTART»TRUE D3 
EMITLC19)3 EMITOCSTO)3 
FMITOCRTS)3 ADJUST 
Go TO LOOPS 
ENDS oe ee 
IF GLOBaALNEXT = LPAREN THEN % 
BEGIN EmMITBC@isFALSE)S 
gue Seda adh 
LaDR2 © CADR + 1)&LAXCTOADORIANSEGCTOSEGNO]3 
ScANS LEVEL ¢ LEVEL + 13 
IOLISTCLEVEL)3 
Ie GLOBALNEXT # EQUAL THEN % PHONY IMP DO 
_BFGIN BRANCHESCT © LADR2sADDR) © BRANCHX$ 2 2 2 
BRANCHX « T3 
IF GLOBALNEXT # RPAREN THEN GO TO ERROR3 
oo... SCANS GO TO LOOPS | 
ENDS 
Ip XREF THEN ENTERX(GETCLINDOX$1)» L&LINFACI15815291)3 
Te LINFA.»SUBCLASS > REALTYPE THEN 
BEGIN XTA © GETCLINDX * 1)3 


RECURSE ON ¢ 


FLAGCB4)3 
ENDS aaa atte ek eos aoe ie mere gS is oo: i Sr 
EMITBC@1s FALSE) 
LADR3 © LAX} 
vB SAD Peo BO OR Bananas ot hot ges ee ee a NN eens 


DESCREQ « FALSES 


04509150 T QOLis 
04509200 rt 0113 
04509250 r 0116 
04509300 + O117 
04509350 7y 0119 
04509400 Tt 0120 
04909450 T O12, — 
04510000 fT 0123 
04511000 T 0124 
04512000 7 0124 
04513000 7 01258 
04513100 7 0126 
04514000 T 0134 7 _ 
04545000 yr 0134 
04516000 rT 0131 
04516100 T 0332 
04516200 y 0134 
04516300 T 0136 
04516350 r 0139 | 
04516400 rT O144 
04547000 rt O144 
04518000 7 0143 
04518100 T 0144 
04518200 ry 0145 
04519000 fT 0147 
~-$g8S0000'F Olde 
04521000 T 0150 
04522000 yr 01581 
~O4S235000 fF OTSS 00 
04524000 7 01583 
04525000 fr 0153 
~G4558000 T CISR 
04827000 ft 0156 
04528000 T 0159 | 
04529000 r 0164 
04530000 7 0162 
04331000 7 0463 a x 
04532000 T 0165 
04533000 fT 0166 
943534000 TF  O16P 
04538000 tT 0168 
04835500 7 0168 


04540000 7 0176 


~ 04537000 y 0173 
04538000 tT 0176 
04539000 7 0476 


04841000 T Gi?e 


04543000 T 0180 


_04542000 7 O178 


04536000 tT 0172 


SCANS IF EXPRCTRUE) > REALTYPE THEN FLAGC102)5 % INITIAL VALUE 04544000 r 0180 
MEIN CLIN DEMOS eens neces AO H5OSOOO FY O9B2 ee ae 
EMITBCLADR2sFALSE )3 04546000 7 0188 
IF GLOBALNEXT #4 COMMA THEN GO TO ERRORS 04847000 T 0186 
ADJUSTS 5 ie ae eta rt payed ae nea aa tt ee Nees ie OM ROO OT 20 VO ae care Gaia na 
LADR4 ¢ CADR + 1)8NSEGETOSEGNOI]3~ 04549000 r 0188 
SCANS IF EXPRCTRUE) > REALTYPE THEN FLAG(102) ELSE EMITOCGRTR)S 04550000 T 0190 


= 


a oe ee 
Pa | | 


= 


BUMPPRT} 


EMITBCLADR2s TRUE D3 

EMITBC™L*s FALSE D3 

LAODRS ¢ LAX3 

FrXBC(LADR3)3 

Ie GLOBALNEXT # COMMA THEN EMITLO1) 

ELSE BEGIN SCANS IF EXPRCTRUE) > REALTYPE THEN FLAG(102)3 ENDS 


EMITVCLINDX)3 EMITOCADDDS 
EmMITNCLINDX)3 = “EMYTOCTSND)3 
EMITBCLADR4eFALSE D3 
FYXBCLADRS)3 


Ip GLOBALNEXT = RPAREN THEN SCAN ELSE GO TO ERROR} 


LOOP: 
IF GLOBALNEXT = RPAREN THEN GO TO SCRAM} 
IF GLOBALNEXT = COMMA THEN 
BEGIN SCAN3 
IF GLOBALNEXT = SEMI THEN GO TO ERRORS 
GO TO ROUND$3 
ENDS 
ERRORS xTA « NAME3 
FLAGC94)3 
TF GLOBALNEXT = SEMI THEN GO TO xIT3 
SCAN3 
TF GLOBALNEXT = ID THEN GO TO ROUND3 
FRRORTOG «© TRUES GO TO XIT3 
ENDS 


IF GLOBALNEXT # RPAREN THEN GO TO SCRAM ELSE 

IF GLOBALNEXT # SLASH THEN GO TO ERROR} 
XIT: IF DEBUGTOG THEN FLAGROUTINEC"™ TOL"s "IST 
END IOLyYST3 


"sFALSE) 3 


INTEGER PROCEDURE FILECHECK (FILENAME eFILETYPE )3 

VALUE FYLENAMEsFILETYPES ALPHA FILENAMES INTEGER FILETYPES 
BEGIN COMMENT THIS PROCEDURE RETURNS THE PRT CELL ALLOCATED TO) 
THE FILE FILENAMEsee A CELL IS CREATED IF NONE EXISTSS ~ 

IF DEBUGTOG THEN FLAGROUTINEC® FILEC"s"HECK "“sTRUE ) 3 
EMITLCIF NOTOPIO THEN 2 ELSE 5)3 x FOR I0 DESCRIPTOR 

IF T © GLOBALSEARCHCFILENAME) = 0 THEN % FILE UNDECLARED 
BEGIN MAXFYILES © MAXFILES + 13 


I ¢ GLORALENTERC*O&C(FILECHECKePRTS)CTOADDRI | 
RFILEIDETOCLASS J sFILENAME )423 

INFOCT,tRelelCle LINK ¢ FILETYPES 

END ELSF % FILE ALREADY ExIsTs 

FILECHECK © GETCT)+ADDRS 

IF QEBUGTOG THEN FLAGROUTINEC” FILEC"s "HECK " 

END FILFCHECK3 


“esFALSE) § 


PROCEDURE INLINEFILES 


BEGIN COMMENT THIS PROCEDURE GENERATES THE CODE TO BRING UP THE FILEoe. 


IF THe FILE IS AN INTEGER THEN FILECHECK IS CALLED» IF THE FILE 


* . #4 me ee WEN 


YF GLOBALNEXT = SEMI OR GLOBALNEXT = SLASH THEN GO TO XIT3 


~~ 04555000" 


132 18 


04551000 
04552000 
04553000 
04554000 


04556000 
04557000 


04556000 


04559000 
04560000 


04561000 


04562000 
04563000 


04564000 © 


04565000 
04566000 


04567000 


04568000 
04369000 


04570000 


04571000 
04572000 
04573000 
04574000 
04575000 
04576000 
04577000 
04578000 
04579000 


236 LONGs NEXT SEG 


04580000 
04581000 
04582000 


04583000 © 


04583010 
04584000 


04585000 


~ 04590000 7 6 


04586000 
04586500 


04587000. 
04588000 
04589000 


04591000 
04591010 


04592000 


04593000 


04595000 


04595000 


t 
T 
T 
T 
T 
T 
T 
T 
af 


AAA AM HHH Ht tt tt Ht tt te 


0194 


0198 


0196 
0197 


—O198 


0199 
0203 


-0208-° 


0206 
0207 


0208 


0210 
0213 
vets 
0215 
0216 


— «0217 


0218 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0224 
0225 
0227 
0236 


0513 
0513 
0513 


OSi3 


0513 
0516 


ae | gor ORE 


0520 
0522 


7 
T 
T 


T 
T 


oe 


T 
T 
’ 


pag ees 


0546 
0546 
0546 


ASI AE aT ae MR Ce 


eo 


Lae 


teteteten 


0000 


0055 


0546 
0546 
0547 
0548 
0549 
0551 
0352 .. 


0553 
0554 


‘e 
IS NOT AN INTEGER THEN IN®@LINE CODE IS GENERATED FOR OBJECT TIME 04596000 1 
| ANALYSIS3 04597000 T 
é REAL TEST3 04598000 T 
Be A Settee tine as a ee START OF. SEGMENT * 
COMMENT IF LAST INSTRUCTION WAS A LIT CALL THEN WE HAVE SEEN REFERENCE 599000 T 
) TO AN INTEGER FILE ID3 ert T 
a IF DEBUGTOG THEN FLAGROUTINEC™ INLIN"'S"EFILE "sTRUE ) 3 ade oo 046900010 T 
TESTeADR 3 04601000 Tf 
@ IF EXPR¢TRUE)>REALTYPE THEN FLAG(102) 04602000 T 
a ELSE IF EXPRESULTSNUMCLASS THEN ; 04602500 TT. 
BEGIN XTANNEW 3 04603000 YT 
eS IF EXPVALUE21.085 OR EXPVALUESOe¢5S THEN FLAG(33) 04603500 ¥ 
_ ELSE BEGIN. senha nstt a. enh antde ens smote be, hee ate titles stot tare ORO OM OOCL A. <1 
IF AOR<TEST THEN & EXPR GOT SEGOVFL@“ASSUME NO WRAPAROUND 04604010 
® EMITOCDEL)? 04604020 T 
ELSE ADR+TEST} : 04604025 TF 
TEST*SPCLBIN2DECCCI+EXPVALUE)3 04604030 T 
e IF XREF THEN ENTERXCTEST&ILTOCE] /0&FILEIDCTOCLASS)) 3 04604040 
FMITDESCLITCFILECHECKCOR™, "Li2ta2r6jaTESTCI8s12:30), —.. . 04604050_ 
IF DCINPUT THEN 12 ELSE 2)) 3 04604060 
] END 3 04604070 
END ELSE we 04604080 
COMMENT NOT INTEGER FILEee. GENERATE OBJECT TIME CODE3 04605000 
 ] REGIN EMITPAIRC17sISN) 3 04606000 
If FILEARRAYPRT=O THEN BEGIN BUMPPRTSFILEARRAYPRT#PRTS ENOS = $=  — 04607000 
EMITOPDCLITCFILEARRAYPRT)3 04608000 
e EmIlTocOUP)3 EMITL(O)3 EMITOCEQUL)3 04609000 
COMMENT NEED 7 CONSECUTIVE SYLLABLESS 04610000. 
IF aDR 2 4082 THEN 04611000 
& BEGIN ADR « ADR + 13 04612000 
cp a BEGOVER cc ak ke ES Skee weg Lal Bele ec hdl Sole teheteat ce SHEL IOOC 
ENDS 04614000 
 ) EMITLC3+FILEARRAYPRT» C3821] SXCONSIDER POSSIBLE XRT 04615000 
EMITOCBFC)S 2. % BRANCH AROUND TERMINATION CODE . 04615100 
EMITLO1)3 EMITOCCHS)3 EMITOPOCLITCFILEARRAYPRT)3 & INV INDEX 04616000 
@ Emil TocLoo)3s EMITLCIF NOTOPIO THEN 2 ELSE 5)3 EMITOC(COC)3 04617000 
END} 04618000 
IF DEBUGTOG THEN FLAGROUTINEC® INLIN"S*EFILE “sFALSE) 3 Ce 0N61L BOLO 
 ) END INLYNEFILES 04619000 
133 1S 61 LONG» NEXT SEG 
e 
@ PROCEDURE FILECONTROL(N)S VALUE N3 REAL N3 04619010 7 
BEGIN COMMENT COMPILES ALL CALLS ON ALGOL FILE CONTROLS 04619020 Tf 
FopS*TRUE 3 ~ 04619025 
@ EXECUTABLE 3 04619027 T 
SCANS EMITOCMKS)3 | one SB gs cia atunte Dag un add ileleeteh tute B, CE. ahpn laetiadasis tbat taste cue SEOLIOIG-T 2 
EMYTLON)3 EMITLCO)3 04619040 fT 
6 NoTOPrO « TRUE3 04619050 T 
INLINEFILE 3 siete le, iby gaara opt vla ea ied patos pagan Sts, asi acthde dues’, Any oltre sia COME WO OM 201) on 
EMITL(4)3 EMITOPDCLIT(14)3_ 04619070 T 
@ NOT@PTO « FALSES 04619080 T 
END FILFCONTROLJ 4: 5%, Gols Soteatbaninrt eGck wMlnde Wientideitile tokens bh, int OOo 20! 
@ 
& 


133 


6 


sac ee 


OB ctw heel thee 


$e Mae oS Regie arcs ieee cae eee a! 


es © 


PROCEDURE FORMATERS 

BEGIN | 

COMMENT FORMATER COMPILES A PSEUDN CODE USED BY THE OBVECT TIME 
FORMATING ROUTINES TO PRODUCE DESIRED 1/0. USUALLY» THERE IS 


—— 


ADDITION GONE wORD 1S PRODUCED FOR EACH RIGHT PARENTHESIS AND 
SLASH. GROUP, 
THE 47TH BIT OF THE FIRST WORD IS SET IF THERE ARE LIST 
ELEMENT PHRASES IN THE FORMAT STATEMENT, 
THERE ARE FOUR GROUPS OF PHRASESS | 
GROUP 1 & Fe Es Oe G ® REPEAT WIDTH DECIMAL. 
GROUP 2s I» Js A» Os Le Te Co &@ REPEAT WIDTH 
Xe P 
GROUP 3 = H = REPEAT SPECIAL PURPOSE 
GROUP 4 s de / = CONTROL REPEAT LINK 
WORD FOR GROUP 1! 
cove = (€ 1! 5] 
REPEAT = [€ 68123 
WIDTH = [€18t12]_ 
DEDIMAL = [30312] 
WORD FOR GROUP 23 
cODE =» € 1! 5) 
REPEAT = € 68123 
WIOTH = €16912) 
SIGN = (413 1) 
FOR Ps x AND T REPEAT = 1 
P: SIGN = SIGN OF SCALE 
WORD FOR GROUP 33 
cOOE # fC 4a! $3 
REPEAT = f[ 6112) 


“REPEAT = NUMBER OF STRING CHARACTERS 
WORD FOR GROUP 43 
CODE = € 18 i 
REPEAT t PES 
LINK r1ea%12) 
DECIMAL # (308127 
CNTROL C471 1) 
)t LINK NUMBER OF WORD = 1 BACK TO 1ST PHRASE AFTER 
LEFT PAREN. 


OUTER MOST RIGHT PAREN 
Ae DECIMAL ¥# 0 


/t REPEAT *® NUMBER OF SLASHES, 
srhesi Dass SD seein ae 
DEFINE APHASE = 6 &»s 


VPHRASE = 30 #» 


ONE WORD OF PSEUDO CODE PRODUCED FOR EACH EDITING PHRASE. IN 


Ht STRING STARTS AT BIT 18 AND CONTINUES TO END OF STRING 


~ REPEAT = REPEAT OF ASSOCIATED LEFT PAREN = 2 22 © 


04620000 | 


04621000 
04621500 
04622000 


04622500 


04623000 
04623500 


(64624000 


04624500 
04625000 


(04625500 


04626000 
04626100 


- 64626500— 


04627000 
04627500 


— 04628000 


04628500 
04629000 


04629500 


04630000 
04630500 
04631000 
04631500 
04631600 


04631625 


04631650 
04632000 


04632500 


04633000 
04635500 


04635600 


04636000 
04636500 


04637000 


04637500 
04638000 


~ 046386500 


04639000 
04639500 


04639600 
04640000 
04640500 


Be LINKS TO LEFT PAREN OF LAST PREVIOUS RIGHT PAREN ~~" 046 


04641500 
04642000 


START OF SEGMENT 


04642510 


“LPPHRASE = 29 #s — 
CPHASE & 15 #s 
IPHASE = 14 Be 
EPHASE # 13 #e 
z 12 &» 
=m 11 #s 
a 2 #» 
2 10 & 


~~ 04642520° 


04642600 
04643000 


— 046435600 


04644000 
046446500 
04645000 
04645500 


Sala eta a ck tn deal a Gots giclee tea edad gees sas 


4~-41-4 


T 


+ 


0356 


0000 


0000 
0000 


0000 


0000 
0000 
0000 
0000 


134 


-ab4S500 F-05560 


keaeetewan 


t e 4, . . . 
: ; H i : : 


END OF CONTINS 


JPHASE = 9 #- 
LPHASE = 8 #s 
OPHASE = 7 #e 
PPHASE = 3 #» 
TPHASE = 5S #s 
XPHASE = 4 #» 
RTPARN = 0 #» 
SLASH = 1 #» 
TOCODE = 13433 5 #» 
TOREPEAT = 6836312 #s 
TOWIOTH = {A8t36t12 Bs» 
TOLINK = 18136142 #, 
TODECIMAL = 30836ti2 ts 
TOCNTRL 2 A7SA72 1 Hs 
TONUM = 42ta3t 5 ts 
TOSIGN SB OYta7t 4 >» 
WSA =z LSTT #3 
REAL J» T3 
LABEL KksSLeFlL 3 B ctasehs hee kept Se ae 
FORMAT FMC//"PHRASE# CODE REPEAT WIOTH DECIMAL" » X22» 
2041817 64284) 64285) yp 4ht4) 4 Ca58iy exes | 
".C4O6S1)5 464682) ,C478LI"/y 3 


INTEGER Dol, CODE» REPEAT ,WIDTHs DECIMAL, TOTALsSLCNTs SAVLASTLP, 
PARENCTsSAVTOTAL3 

BOOLEAN VRB,ASK 3 

BOOLEAN LISTEL» HF» ZF» QF» PFs MINUSP» FIELOs STRINGF3 

BONLEAN COMMAS» DOLLARS» PLUSPs STR3 ean ei 

LABEL ROUND» NOPLACE sNUMsNUL LPs RP,ENDER»NOEND sFALL » SEMIC »NUL1S 

LABEL NEWWDs, ROUNDL3 

ALPHA STREAM PROCEDURE GETCHARCONCRVs T)3 VALUE NCRVS = 

BEGIN St « NCRV3 DI © T3 DI ¢ DI4+75 DS © CHRS GETCHAR © SI3 

END GETCHARS 


BOOLEAN PROCEDURE CONTINUES 
BEGIN 
LABEL LoOPs 


BOOLEAN STREAM PROCEDURE CONTINCCO)3 


BEGIN Srecos IF SC # "C" THEN IF SC # "$" THEN BEGIN SIe*SI4#53 © 7 


Ip SC # " " THEN IF SC # "O" THEN BEGIN TALLYe13 
CONTIN * TALLY END END _ 


BOOLEAN STREAM PROCEDURE COMNTCCD»T)3 VALUE Ts 


BEGIN LABEL L3- 
SleCn3 If Sc = "C" THEN BEGIN TCSI#Sre#is IF SCa%@" THEN 
TALLYe1 ELSE JUMP OUT TO LDS TALLYe13 Lt ENDS COMNT+TALLYS 

END COMNT3 Ber Megat ROOT Tee, Soeiand teen rg Ree Ars pol RR 


135 


134 


136 


04646000 Tr 0000 
04646500 YT 0000 
04647000 y 0000 
04647500 T 0000 
04648000 fT 0000 a 
04648800 Tr 0000 
04649000 T QO000 
~ 04669500 F 0006 
04650000 ft 0000 
04650500 yr 0000 
04651060 7 6000 
04651500 yr 0000 
94652000 T 0000 — 
04652500 tT 0000 
04653000 Y 0000 
04653500 T 0000. 
046584000 T 0000 
046855000 rT 0000 
04655100 r 0000 
04655400 + 0000 
START OF SEGMENT waeekennaae 
04655410 7 0000 — 
04655420 fT 0000 
135 Is 29 LONG», NEXT SEG 
04655500 Tf 0000 _ 
04656000 T 0000 
04656100 7 90000 
. 04656500 F 0000 
04656600 tT 0000 
04657000 7y 0000 
04687100 7 9000 
~ 046575600 ~ 0000 — 
04658000 Tt 0000 
94658500 FT 000, 
04659000 ry 0002 
04659500 7 0002 
04660000 7 0002 
START OF SEGMENT weettwenne 
.. 94660500 7 0000 
04661000 7 0000 
04661500 7y 0002 
...04662000 T 0004 
04662500 7 0005 
04663000 Tr 0006 
ads paeeshOl t tbe 
04668000 fT 0006 
04664500 y+ 0009 
~~ 04665000 7 O014 


BOOLEAN STREAM PROCEDURE DCCONTIN(CD)3 
BEGIN SyeCD3 IF SC = "=" THEN TALLY © 13 DCCONTINGeTALLYS 
END OCCONTIN3 


LOOP: IF NOTCCONTINUE ¢ 
IF DCINPUT AND NOT TSSEDITOG OR FREEFTOG THEN 
IF NEXTCARD<4 THEN OCCONTINCCB) 
ELSE IF NEXTCARD#7 THEN DCCONTIN(COB) ELSE CONTINCTB) 
ELSE IF NEXTCARD<4 THEN CONTINCCB) 
FLSE IF NEXTCARD®7 THEN CONTINCOB) ELSE CONTINCTB)) 
THEN TFCIF NEXTCARD < 4 THEN OEE TOR RT ASE Te 
COMNT(CBsDCINPUT AND NOT TSSEDITOG OR FREEFTOG) 
ELSE IF NEXTCARO = 7 THEN 
COMNTCOBsDOCINPUT AND NOT TSSEDITOG OR FREEF TOG) 
ELSE COMNTC(TB»s0) AND NEXTCARDS6) THEN 
BEGIN 
IF READACARD THEN IF LISTOG THEN PRINTCARD3 
G0 TO LOOP; 
ENO3 
END CONTINUES 


STREAM PROCEDURE STORECHARCARY»POSITsCHAR) 3 VALUE POSITS © 


BEGIN St «CHAR? ST @ SY * WP 


Or « ARY} DI ¢ DOI + PQSIT3 
os pate g US CURE Sn oe 
ENO STORECHAR3 


ALPHA STREAM PROCEDURE BACKNCRONCRV)3 VALUE NCRV3 


BEGIN STeNCRVE ST © SY*iF BACKNCR © STS END BACKNCRE UU 


(136 IS 


04667500 — 


04669500 


04665500 
04666000 
04666500 


04667000 


04667600 
04668000 


04668500 


04668600 
04669000 


04670000 
04670100 
04670500 
04671000 
04671500 
04672006 
04672500 
04673000 


$9 LONG, NEXT SEG 


04673500 


04674000 


04674500 
04675000 


04675500 © 


T 
T 
T 


ETERS SORT GE a 


A444 


0012 
0012 
0014 


0015 


-O0L8” 


0019 
0024 


(0026 


0030 
0035 


0038 


0044 
0044 
0048 — 
0052 
0053 


0055 


0056 
0056 


0006 


13400, 


~~ 04677500 FT 0006 


0019 
0024 


as eee 


0024 
0026 


(0026 


0029 


ee ee COMMENT #eeeeeee START OF CODE wtewntktareenes 04677000 T 
meee aay YF XTA «© LABL = BLANKS THEN FLAG(C18) ELSE ~ PPE aad 
IF De SFARCHCLABL) * 0 THEN 04678000 yy 0009 
ee eee Ot ENTERCO & FORMATIOCTOCLASS)», LABL) ELSE pact nies Soecllcagess ANT ae. 04678500 7 0011 
IF GFTCD)eCLASS # FORMATID THEN BEGIN DeOSFLAG(143) END? 

IF XREF THEN ENTERXCLABLs 18FORMATIOCTOCLASS))3 04679400 fT 

sees — LABL ¢ BLANKS} Serene ace a em ae tees ean eae ae ee ee cp 04679500 T 

NCR ¢ BACKNCRONCR)S i: "04680000 F 

WSACO) + TOTAL «© 13 046480800 T 

Se Sates ROUNDit XTA & BLANKS3 04680700 fT 

ROUND! NCR « GETCHARUNCR#T)3 “04681000 FT 

rF T = ")" THEN GO TO NOPLACE3S 04681002 T 

. % + Yo = r . é id Pio 


“04679000 - O04 


r 


¥TA # T & XTAL12118930173 
TeIF CTo"a" OR Te"<*) AND 
CHOLTOG OR NOTCHF OR STRINGF)) THEN "4+" FLSE 
TF CTs"e" OR T=2"t") AND CHOLTOG OR NOT HF) THEN ""* 
ELSE T3 
TF NOT CHF OR STRINGF) THEN 
tre T = * * THEN GO TO ROUND 
ELSE IF T="," THEN GO SL 3 
7F HF THEN 
BEGIN 
POET CCE CUE CE TE POT aT a 
IF HF «© REPEAT © REPEAT = 1 #¢ O THEN 
Fer « I+#1 = 8 THEN 
BEGIN IF TOTAL ¢ TOTAL +1 > LSTMAX THEN GO TO NUL3 
WSALTOTAL] *© I * O3 GO TO ROUNDS 
EMO ELSE GO TO ROUND ELSE GO TO NULYG3 
FNDS 
Ip NOT STRINGF THEN 
Ip SLONT > 0 THEN | I sans San 
Ip YT w» “*/* THEN BEGIN SLCNT © SLCNT4#13 GO TO ROUNDS END 
ELSE 
BEGIN WSACTOTAL) © O &@ SLCNTETOREPEAT) & SLASHECTOCODE); 
If NOT STR THEN 
IF REPEAT < 16 AND WSACTOTAL™13,(€4226) s O THEN 
WSACTOTAL*TOTAL SL] © WSACTOTAL) & SLCNT(C42:4424) 
& 106463473193 
COMMAS¢DOLLARS*#BOOLEANCSLCNT¢€0)3 NCReBACKNCRCNCR) 3 
GO TO NULG3 


END: 
TF NOT OF THEN IF T s ""* THEN TF STRINGF « NOT - STRINGF THEN 
BEGIN IF COOE > 4 THEN BEGIN STRINGF ¢ FALSES 
NCR « BACKNCRONCR)3 GO TO ENDER ENDS 
SAVTOTAL © TOTALS JeOsS Te33 QF « TRUE 
WSACTOTAL] © O & HPHASECTOCODE]3 
6N TN ROUND$ 
END ELSE 
BEGIN Sica ta sk is ems oe heal te elect es Ae Se Oe 
WSACSAVTOTAL) © WSACSAVTOTAL) & JCTOREPEATS3 
IF I #8 © THEN TOTAL © TOTAL = 13 
CODE ¢ HPHASES | 
GO TO ENDERS 
END3 
TF STRINGF THEN 
BEGIN 
STORECHARCWSALCTOTALI*19T)3 
BR Nite” Den ctiet 6 ae”) SP ae 2, | Os | 2 ne ee 
Ip Ie 1+. a & THEN 
BEGIN 


t 
1 


| 
| 
I 
| 
1 
i 


I * WSACTOTAL) © 03 


NuM! DECIMAL * 10 x DECIMAL + T3 


| 
| 
| 


Qa aR TAG tO 


IF TOTAL _¢ TOTAL +4 > LSTMAX THEN GO TO NULS 


ENDS 
eseene os festa LTE RAIN ge cy Dele orca aes ne eps en IR Dae toch ete Renee re ean te 
ENDS 
CASE T OF 
eee : BEGIN traci oh guspser, eo De nagher auestecienetpa lee Sian Os ie choc ol ce name 
BEGIN ZF « TRUES- x 0 


04681004 T 9030 
04681010 tT 0032 
04681020 t 0033 
_ 04681030 7 0037 
04681060 Tt 004, 


04681100 7 0042 


04681120 T 0043 


04681140 T 0048 


04683000 T 0046 
04683500 7 0047 


04684000 T 0047 


04684500 r 0049 


04687655 


04685000 T 0054 
04685500 7 0053 
04686000 tT 0056 
04686500 T 0058 
04687500 T 0058 
04687510 T 0058 
04687520 T 0089 
04687530 T 0060 
04687550 T 0063 
04687560 T 0063 
04687580 rt 0067 
04687590 Tt 0068 
04687600 T 0074 
04687620 7 0075 
04687650 T 0076 

t 

T 

T 


04688000 


04688500 t 0083 


04689000 7 0086 
04689500 T 0088 
94690000 T 0094 | 
04690500 tr 0093 


04691000 Y 0094 
04691500 


T 
04692000 Tt 0094_ 
T 


04693000 
04693200 T 0099 


04693500 T 0100 


04694000 yr O101 


04694500 T O103 | 


“04695000 T 0104 


04695500 ry 0104 
04696000 7 0103 


04696800 tT 0105 
04697000 t 0107 


04698000 T O109 
04698500 fT O111 


._ 94699000 7. O114 . 


04699500 7r. Ola 
04707000 r Of12 


DATO 500 Fs CII 2. ci eeuddan eae 


04708000 fT O112 
04708500 fT 0113 


04697500 T O807 


@ 
— = 


| 
| 
| 


ENn3 
BEGIN 
BEGIN 


~“FFeBOOLEANCREPEAT EC HEC IMAL ED SF 


ae 

5 ] 
BEGIN 
BEGIN 


CODE ¢ APHASES GO TO NOEND ENDS. 


1 IF REPEAT = O THEN FLO0G(6130)3 


IF ASK THEN 
BEGIN FLAG(183) a 
DO BEGIN NCReGETCHARCNCRs1T)3 XTA#T&XTALL12818'30) END 
UNTIL Tate" AND T>9 AND Trt © 3 
NCReBACKNCROINCR)S XTAGBLANKS&XTALLA%{2330) 3 


END 


3 re Ms See iota Ton hn 
IF DECIMAL>4090 THEN BEGIN FLAG(172)3 DECIMAL e¢4 END 3 
IF cODE = 0 THEN REPEAT ¢ DECIMAL 


ELSE IF PF THEN BEGIN IF DECIMAL>WIDTH AND WIDTH#ZO0 AND CODES 


VRHRASE THEN FLAGC129) END ELSE WIOTHeDECIMAL 3 
GG TO ROUNDS 


NUM3 GO TO NUM$ GO TO NUM3S 

NUM$ GO TO NUM$ GO TO NUMN3 

NUM$ GO TO NUM$ GO TO NUMS 
333 

PLUSP « TRUE? GO TO ROUNDS END? 


CPHASE$ GO TO NOEND ENDS 
CODE * DPHASE# GO TO NOEND END3 
CODE + EPHASE$ GO TO NOEND ENDS 
CODE * FPHASES GO TO NOEND ENDS 
CODE + GPWASES GO TO NOENO END3 


CODE 
CODE 


¢€ 
& 
+ 
+ 


ae de BE dE ae ae DE DE DE DE dE 22 d2¢ 
LE ImMooowr+ ener 


IF ASK THEN BEGIN FLOGC32 )3 GO SEMIC END 3 
HF « TRUES I © 33 CODE © HPHASES 


G@ TO ROUND 


CODE « IPHASES GO TO NOEND ENDS $$&1- 

IF CODE < 11 OR CODE=15 THEN FLOG(134)3 & o 

IF CODESO OR PF THEN FLOGC32) 3 

PFeTRUES DECIMAL©O3 ASKeZFeFALSE 3 

GO TO ROUNDS 

wey" . ; oa ee ee 
x 8 

IF CODE * 0 THEN FLOGC32)3 | Ye Be — 


IF ASK THEN REPEAT*¢40953 IF REPEAT#O AND 2F THEN FLAG(173) 3 
NAMLISTECSAVLASTLP «© PARENCT « PARENCT41) ¢ O & TOTALCTOWIOTH) 


RCIF REPEATSO AND PARENCT>1 THEN 1 ELSE REPEATIETOREPEATY SoU 


IF ASK THEN 
BEGIN ASKe¢VRB¢FALSE 3 


WSATTOTAL T*3IZELPPHRASETTOCODEJEAOOSTTOREPEAT I Se 


IF CTOTAL©TOTAL41)>LSTMAX THEN GO NUL 3 
ENO 3 


STR « TRUES 
GO TO ROUNDS eeets wes oe . Pe ee ees ee 


x 
CODE+JPHASES WIDTHe=15 GO NOEND END $= & 
x 
+ 


» ‘ a 
' ‘ * é ‘ 


04708510 T 


O470B8515 PF 


04708520 T 
04708525 T 


- 08708830 T 


04708535 Tf. 
04708540 fT 
04706550 + 
04709500 7 
04710000 7 


04712000 T 
04712500 Tf 


~ O47739000 7 


04713500 7 
04714000 7. 
(04714500 T 
047414600 fT 
04715000 7 
04715500 7 
04715600 T 
04716000 T 
04716900 T 
04717000 T 
04717500 fT 
04718000 + 
04718100 T 
04719000 fT 


04719500 rT 


04720000 T 
04720500 T 


04721500 fF 
04722000 fF 
04722500 7 
04723000 Tf 
04723500 T 


— 04724000 T 


04724500 T 


94725000 7 0 


04725500 fT 
04725550 fT 
04726000 T 


04726510 7 


04726520 T 


-ONTLOS00 7 OL3a 


64721000 T0170 


04726500 F OLS 


04726540 7 0204 
04726550 rt 0203 


04727600 T 
04728000 T 


‘O8728500 7 


04729000 T 
04729500 T 
06730000 7 
04730100 T 


~“Oa727300 T 020375055 ~ 


0205 
0205 


“0208 


0208 
0208 
0214 
0214 


e 6 


= 


KK! 


SL8 


ELSE BEGIN COMMAS¢TRUE 
DO BEGIN NCReGETC 


UNTIL Te" * 3 
IF C(T<i7 OR €T>25 ANDO T<33) OR (T>42 AND T<50) OR T>57) | 
THEN BEGIN FLAGC32) 3 

IF Ta"*" OR T<10 THEN BEGIN DECIMALe13 GO FL END 3 


3 ae ae ee eer , 
HARCNCRsT)3 XTAGTRXTAL12218230) END 


END 3 
NCReBACKNCR(NCR)$ XTA*BLANKSQXTAC18212330] 3 
END 3 
GO ROUND 3) 
ENN OF K $3 
BEGIN CODE « LPHASES GO TO NOENDS FND3 


33. ie 284 Sieh ACM nat ante lea cn 
BEGIN CODE * OPHASES GO TO NOEND? ENDS 
BEGIN WSACTOTAL) + O & PPHASELTOCODE) 
R REALCVRBI (4284781) oe ae 
& REALCMINUSP)CTOSIGN] & REPEATC TOWIDTHI&1E TOREPEATY3 
MINUSP ¢ PLUSP ¢ FALSE3 
TF (DECIMAL = 0 AND NOT ZF) THEN FLOG(131)3 
60 TO NUL13 


Be ede de 
vworzr 
2 


ENn3 
3} . ee OR 
BEGIN IF DOLLARS OR CODEZO THEN FLAGC32) x $ 
ELSE BEGIN DOLLARS*TRUES GO KK END 3 
DOLLARS*TRUES GO ROUND 3 
ENn OF DOLLAR SIGN 3 
IF NOT ASK THEN % * 
BEGIN ptt riches Wot Set : ee Pee en eae 
IF ZF OR DECIMAL NEQ O THEN FPLAGC183)3 DECIMAL #240953 
IF CODE=0 THEN REPEAT*DECIMAL 
ELSE IF NOT PF THEN WIDTH*DECIMAL 3 
VRB t= ASK tz LISTEL t= TRUE} GO ROUNDS “OU 
END ELSE BEGIN DECIMAL!#40953 FLAG(183)3 GO FL END 3 
BEGIN MINUSP © TRUES GO TO ROUNDS END3 %- 
RP e 
BEGIN IF FIELD THEN BEGIN NCR © BACKNCRCNCR)S & ) 
GO TO ENDERS ENDS 
IF DECIMAL # © THEN FLAG¢(32)3 
I ¢ IF PARENCT = 1 THEN IF SAVLASTLP > 1 THEN 2 ELSE 1 
ELSE PARENCTS 
WSACTOTAL JOC JONAMLISTCIIACTOTAL 41° JeU,018912) LTOLINK] 
& CIF PARENCT ¢ PARENCT#1 = 0 THEN 77 ELSE O)CTODECIMALY3 
IF WSACJ1 eC1ISJ@LPPHRASE AND PARENCT#O THEN 


BEGIN WSACJI.CL68I12Z]¢TOTAL"J3 WSACTOTAL),Ci8ti2)«TOTAL*7=u BOO 


END 3 
NAMLESTCII,€6#12] « 03 
CODE * HPHASES 


60 TO NULLS 
END3 Ae ete: Ge 6s a ee dh See ee eee ee ee re Oe ae 
33 x 3 LEQ 
60 TO ROUNDS % BLANKS 
BEGIN SLONT ¢ 23 shes stele te Mette etc te ee 5 Tan a Gk Pk ay 

IF CODE#0 THEN IF ASK OR ZF OR DECIMAL#O THEN 

BEGIN FLAG(32)3 ASK*ZF*BQOLEANCDECIMAL*0) END 3 
IF CODE<S THEN IF Ta"s" THEN GO ROUND! ELSE GO ROUND ELSE Go 
ENDER 3 

ENn3 


S4F281N8 7 


-b5t3 a 


04730125 T 0219 

04730130 T 0224 - 
04730135 tT 0226 
04730137 + 0228 

94730139 TF 0234 
04730140 7 023; 
04730145 ~ 0235 
94730150 T 0235 
04730460 Tf 0235 
04730500 ¥ 0236 

_ 04731000 7 0237_ 
04731500 Tt 0237 
04732000 + 0239 
04732100 tT 0244. 
04732500 T 0242 
04733000 T 0248 

_ 04733500 T 0247 | 
04734500 T 0249 
04735000 + 0250 
04735500 7 0250 _ 
04735600 ~ 0250 
04735610 7 0283 
04735620 tT 0255 ~ 
04735630 T 0256 
04735700 fT 0256 
04735710 tT 0257 

-- “OR755715-p-ORsF 
04735720 tT 0264 
04735730 + 0262 
> “ONT 35700 P-Oze6 

04735750 P 0269 
04736000 tT 0273 
04736500 + 0275 
04737000 Tt 0276 

. 04737500 T 0278 
04737600 + 0279 
04738500 7 O28 

. 04739000 7 0284 
04739500 7 0285 
04740000 T 0296 

04780100 T 0294 7 
04740310 + 0297 
04740115 ft 0302 
04740500 tf 0303 : 
04740600 7 0306 
04742000 + 0307 

__04742500 T 0307 Ex aah 
04743000 Tt 0308 
04743500 - 0308 

_. 04744000 T 030g | sonic 
04744100 7 0309 
04744110 Tf 0313 

94744500 7 0316 offs. ; 
04744805 fT 0319 
04745000 ft 0319 


 04747400™ 


; x § 
REGIN IF REPEAT # O THEN FLAGC32)3 x T 
CODE «+ TPHASES 
GO TO NOEND3 
ENDS 
3 BU 
BEGIN VRBeTRUES CODE+VPHRASES WIDTH#*13 GO NOEND END 3 % V 
} x W 
BEGIN IF REPEAT = O THEN FLOG(130)3 z x 
IF STR TREN 
NEWWDS WSACLTOTAL] «© © @ XPHASEECTOCODE) & REPEATE TOWIOTH) 
& tC TOREPEAT) 
& REALCVRB) (4296781) 
ELSE ; . 
BEGIN 
TF CJewSACTOTAL#1)).642861>0 OR (IeJ, C185] )=RTPARN 
~ OR CREPEAT232 AND I¥XPHASE) THEN GO NEWWD 3 ~ 
IF IT®XPHASE AND CleJ,0183121+REPEAT)<4090 THEN 
WSALTOTAL*TOTAL"1] © J & IC TOWIOTH) 
ELSE IF REPEAT 2 32 THEN GO TO NEWWD 
ELSE WSACTOTAL*TOTAL#1) ¢« J & REPEATCTONUM) 
& {CTOCNTRLI3 
END3 
60 TO NULL 
ENn3 7 
3 3 x Y¥ Z 
GO SL 3 a 8 
GO. TO LPs. Re 
M4 eos" 


END OF CASE STATEMENT} 


FLOGC132)3 %& ILLEGAL CHARACTERS 
GO TO FALL$3 
ENDER’ YF CODE > 4 THEN 
REGIN If WIDTH®O THEN FLAGC130) 3 
If CODESVPHRASE THEN 
BEGIN 
IF WIDTH=*1 THEN IF PF THEN FLAGC130)ELSE WIDTHS 
—DECIMAL+¢4094 ELSE. 


GFoNGT Ee WHEN OPCML AGS Ne eee 


END 
ELSE . 
IF CODE > 10 AND COOE # 15 THEN 
IF (DECIMAL = 0 AND NOT ZF) OR NOT PF THEN FLAG(133) 

ELSE ELSE DECIMAL ¢ 03 

IF REPEATSO THEN REPEAT¢1 3 0 0 00 00 

IF WIDTHwel THEN WIDTHeO 3 
_WSACTOTAL] © 0 & CODECTOCODE] & WIDTHETOWIOTH) 


~&® REPEATCTOREPEAT) & DECIMAL(TODECIMAL] ~~” 


& REALCCOMMAS) (4424711) 

& REALCVRB)(4284731) 

& REALCOOLLARS) €452479413— 
FNO ELSE IF DECIMAL ¥ O THEN FLAG(32)3 

NUL1!  F PLUSP THEN FLAGC164)3 
TF CODE*VPHRASE THEN 
REGIN 


» 06754500 


04745500 


04746000 


04746050 
04746100 


04746150 


04746500 
04746780 


04746800 
04747000 
04747200 


04747600 
04747700 


~“Oa74a7800° 


04748000 
04748800 


04769000 — 


04749200 
04749400 


— 04749600 


04749800 
04750000 
04751000 
04752000 
04752500 
04753000 
04753500 
04754000 


04755000 


START OF SEGMENT 


137-18 


04757410 T 


04787430 


— 04757500° 


~~ O6758400° 


“04759200 


04755500 
04756000 
04756500 
04757000 
04757400 


04757420 
04757425 


04757440 
04757450 


04758000 
04758100 


04758410 
04758500 


046759000 


04759100 
04759150 


04760000 
04760800 
04760550 
04760560 


orrrr ys TT) 
64 LONGs NEXT SEG) 


eae Eee eae 


Nt tt st tt tt tt et tt tt 


0319 
0319 
0324 
0322 
0322 


0323 
0323 


03526 


0326 
0328 


—O329° 


0332 
0333 


~Os34a- 


0335 
0335 


0x30 


0343 
0346 


0349 © 


0352 
0356 
0357 
0357 
0358 


0354 


0358 
0359 


0359 


0359 


0360 
0360 
0364 
0362 
0365 


Pag ag: ft Stee Aine 


0366 
0370 


Soap ee Pe eee 


0374 
0374 


—O37q 


0378 
0382 


0386 
0388 


oar f |} cee ees 


0393 
0394 
0395 
0397 
0399 
0404 
0402 


137 
134 


“ggg 


t 


1 


YF DOLLARS ANOCCODE < 9 OR CODE > 14) THEN FLAG(166 
TF COMMAS AND NOTCCODE = 10 OR CODE = 12 OR CODE = 


)3 
9) 
THEN FLAGC165)3 


ENO 3 

VRBe 

FRRORTOG «© FIELD * PF © PLUSP © DOLLARS «© COMMAS ©& STR ¢ FALSE3 
YF CODE = HPHASE THEN STR ¢ TRUE3 

cODE * REPEAT ©« WIOTK &« Q3 

y¥TA ¢ BLANKS} 

GO To FALLS 


NOEND? 


TE FIELD THEN FLAG(32)3 


TF CODE # TPHASE THEN LISTEL ¢ TRUE ELSE REPEAT « 43 
IF REPEAT=O AND ZF THEN FLAGC173) 3 
FIELD ¢ TRUE 


FALL! 


Ir MINUSP THEN BEGIN FLAGC32)3 MINUSP «© FALSE END3 


ASKe7FeFALSE 3 


NUL 


DFCIMAL «+ O$ 


Ir PARENCT = 0 THEN BEGIN SCN © 13 GO TO SEMIC END} 
1F coDE < 5 THEN 
Ie TOTAL ¢ TOTAL +1 > LSTMAX THEN 


BEGIN FLOGC78)5TOTAL © TOTAL#23 GO TO SEMICS ENDS 


GO TO RnUND3 


NOPLACEs 


SCN ¢ 0}; 
SEMIC3 


IFECOCINPUT OR FREEFTOG) AND C(STRINGF OR HF) THEN FLOGC150)3 
IF TSSEDITOG THEN IF CSTRINGF OR HF) AND NOT DCINPUT 
THEN TSSEDCXTAS1)3 
IF CONTINUE THEN IF READACARD THEN 
REGIN IF LISTOG THEN PRINTCARD$ GO TO ROUNDS ENDS 


NEXT « SEMI3 


IF SCN = 1 THEN SCAN3 
IF STRINGF THEN FLAG (22)3 
IF NOT LISTEL THEN WSALO) ©€ O3 
IF PARENCT 4 O THEN FLAGCIF PARENCT < 0 THEN 9 ELSE 8)3 
IF D # 0 THEN PRTSAVERCDsTOTAL+1WSA)3 
IF DEBUGTOG THEN BEGIN 
WRITECLINESFM) 3 
FoR ye0 STEP 1 UNTIL TOTAL DO BEGIN 


WRITECLINESE 


JeCALs Lee C42tal ed, CM4285 oJ, C44t od, Ca45tile 
DelCO6S Lode l 4682) ,Jelf 47919) 3 


IF JolitS]22 THEN Telecy, 6912142), 036897 3 


ENA 


3 


WRITECLINECOBLI) Bo 
END OF DEBUGSTUFF 3 
END FORMATERS 


PROCECURE EXECUTABLE3 


BEGIN LABEL XIT3 REAL Ts Jo TS» PS 


IF SPLINK < 0 THEN FLAGC12)3 

IF LABL ® BLANKS THEN GO TO xy]T3 

IF T + SEARCHCXTA « LABL) = 0 THEN 

T * ENTERC"O & LABELIDETOCLASS} & CADR4+1)CTOADDR) & 


04769000 r ¢ 


gn970000 3 o 


TST/7s Yo CJewSACTI CLS Pod COs ee I CLSt ete cs0t12), 
arses F 


04772650 7 
Pe de dees 


04760600 
04760700 
04760800 
04760850 
04760890 
04760900 
04760940 


04760980 7 


04761000 
04761500 


04762500 
04762510 


04763000 T 


04763500 


04764000 | 


04764500 
04765000 
04765500 


04766500 


04767000 


04767500 
046768000 
04768500 


04769500 
04770000 


04771000 
04771500 


04772500 
04772600 


04772610 
04772615 


04772625 
04772630 


04772640 
04772645 


04773000 


04773010 


Sete 04773020 
START OF SEGMENT 


04773030 


04773040 


(04773050 | 
04773060 


04762000 T 


(04766000 T 


T 
T 
T 
T 
1. 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
uy 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Y 
T 
T 
T 
T 
hs 
T 
T 
T 
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T 
T 
* 
T 
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T 


04770500 Tt 0 


Oa77TEe0S +O. 


OQETT EERO” 


‘Scie ikaw hae ane ag 


0526 


0556 
0000 


9002 0 


0003 
0005 


535 LONG» NEXT SEG 6 


= + 
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s fy » e ‘ 


6 


Bakge 


ac See Gceana 


 NSEGETOSEGNO)> LAB 2 ELSE ones 04773070 t 0009 
BEGIN IF ¢€P © GETCT))eCLA # LABELID THEN 04773060 T OO11 
BEGIN FLAG(144)3 GO TO XIT END3 04773090 rT OO14 
IF P < 0 THEN BEGIN FLAGC20)3 GO TO XIT ENDS 04773100 y 0015 
TS © P.ADORS 04773110 7 0018 
WHILE TS # O 00 04773120 T 0019 
BEGIN J ¢ GITCTS)S FIXBC(TS+10000)3 TS «© y ENDS ~ 04773130 7 0024 
PUTCT» Pe=P & CADR41)£TOADDR) & NSEGCTOSEGNOI)3 “04773140 7 0026 
IF (CT ¢ GETCT+#2)),8ASE #% O THEN 04773150 T 0030 
T * PRGDESCBLOR( 2s T,BASEs CADR41)-£36210)» NSEG)3 04773160 fT 0033 
END} 04773170 T 0037 
IF XREF THEN ENTERXCLABL» LQLABELIDETOCLASS))3 04773175 7 0037 
XITs 04773180 T 0040 
END EXECUTABLE3 04773190 T 0040. 
138 1S 43 LONG, NEXT SEG 
PROCEDURE IOCOMMAND(N)3 VALUE N3 REAL N3 04774000 T 0586 
COMMENT N COMMAND 04775000 T 0556 
0 READ 04776000 T 0556 
1 WRITE 04777000 tT 0556 
2 PRINT 04778000 tT 0556 
3 PUNCH 04779000 T 0556 
4 BACKSPACE “O4780000 7 0556 
04781000 tT 0556 
04782000 T 0556 
7 NATAS 04763000 tT 0556 — 
BEGIN LABEL XITsSUCHsLISTER»NOFORMsFORMER sWRAP sDAAT oNF3 04764000 T 0556 
se, ifia taps see eadba Selick eee START OF SEGMENT eeatteawen 
LABEL LySTERI3~ . 04784300 T° 0006 
BOOLEAN SUCHTOG» RDTRIN» FREEREAD3 04785000 7t 0000 
BNOLEAN FORMARYs NOFORMTS 04785020 T 0000 
BOOLEAN NAMETOG3 04788050 T 0000 
DEFINE nATATOG = DATASTMTFLAG#S 04785100 7 0000 
REAL Ts ACCIDENTs EDITCODES — 94786000 T 0000 
REAL DATABS 04786100 Tt 00006 
PROCEDURE ACTIONLABELSCUNSEEN)3 VALUE UNSEENS3 BOOLEAN UNSEEN3 04787000 T 0000 
BEGIN LABEL EOFsERR»RATAsXITs ACTION» MULTIS | oe oe, 04788000 T 0000 
START OF SEGMENT eeatteneus 
BOOLEAN BACK»sGOTERRsGOTEOFS 04789000 fT 0000 
_IF_UNSEEN THEN SCANS behest eh, BE ft tt AO, Se en et lt eh st irene wt OA OO ROO. 1. COUN eee 
EOF: Je GOTEOF THEN GO TO MULTIS 04791000 7 O00g° 7 OU 
Ip BACK ¢ NAME s “END ©" THEN GO TO ACTIONS 04792000 7 0003 
ERR: Ip GOTERR THEN GO TO MULTIS _ _ 04793000 T 0008 
fe NAME # "ERR * THEN IF GOTEOGF THEN aaa iil "94794000 F ODODE 
BEGIN MULTI3 XTA @ NAME) FLOGC13793 04795000 T 0007 
ce ee OT Te 04796000 7 0009 
END ELSE GO TO RATA3 —— = "94797000 fT OOl2 
ACTION! SCAN3 04798000 T 0012 
_Ip NEXT = EQUAL THEN SCAN ELSE GO TO RATAS 04799000 tT 0012 
Ip NEXT # NUM THEN GO TO RATA an a a aie 04800000 T 
If XREF THEN ENTERXCNAME SOSLABELIDECTOCLASS])3 04800100 tr 0015 
Ip BACK THEN NX1 # NAME ELSE NX2 « NAMES — 7 04801000 7 0018 
SCANS TF NEXT ® RPAREN THEN GO TO XIT3 ) (04802000 fT 0021 
IF NEXT =& COMMA THEN SCAN ELSE GO TO RATA 04803000 t 0029 


i 


—> 


Ir BACK THEN 
BrGIn BACK ¢ NOT ¢€ GOTEOF ¢ TRUE)3 
GO TO ERR} 
ENDS 
GNTERR ©* TRUE3 
Gn TO EOF 
RATA? XTA © NAMES FLOG(O); 
XIT! 
END ACTYONLABELS3 


IF DEBUGTOG THEN FLAGROUTINEC™ IOCOM*,"MAND "“sTRUE ) 3 
EODS«N¥%7 3} 
C2 ¢ IF N = 0 OR N & ? THEN 1 ELSE O3 
SCANS JF NEXT # SEMI THEN BEGIN FLOGCO)3 GO TO XIT END3 
IF N = 7 THEN - 
BEGIN DATATOG « TRUE3 
If LOGIFTOG THEN FLAG(101)3 
LABL « BLANKS} . 
Ip SPLINK 2 O THEN ZNOT BLOCK DATA STMT 
BrGIN 
IF DATAPRT#O THEN BEGIN 
DATAPRT+¢PRTSe#PRTS4+13 ADJUSTS 
DATASTRT¢(ADR4+1 &NSEGCTOSEGNO) END 
ELSE FIXBCDATALINK)3 
EMITOPDCLITCDATAPRT)3 EMITOCLNG)3 
EMYTBC@1s TRUE)3 DATAB © LAX3 


ENDS . 
Go TO DAATS 
END3 
EXECUTABLES 
EMITOCMKS)3 
IF N = & THEN 
BEGIN | 
INLINEFILE 3 
BFGIN EMITLCO)3 EMITLCO)S EMITLCO)S EMITLOO)3 
EMITL(5)3 EMITL(O)3 EMITL(O)S 
EMITVCNEEDC"eFBING"s INTRFUNID) 23 
En D3 
Go TO XIT3 
END3 
EDITCODE © NX1 © NX2 « O3 
IF ROTRYIN ©¢ Sedona: 
N = 0 THEN IF NEXT = LPAREN THEN GO TO SUCH 
ELSE EMITDESCLITCFILECHECK(".5 ,2¢17xREAL 
; ere rca eee eh ae nt er eUa eon mem mn eT, 6150201518 Sa? ee he 
ELSE IF N = 1 THEN IF NEXT # LPAREN THEN FLAGC33) 
ELSE GO To SUCH 
TH eS ET aN ee EIN St ate Dass tye intra ceg teh dl nee hogan gate Ne ye tee che aes 
EMITOESCLITCFILECHECK(™, 6 W,2417xREAL 
CREMOTETOG))) 


04812000 0034 


04804000 T 0024 
04805000 r 0024 
04806000 fT 0026 
04807000 rt 0027 
04808000 ¢ 0027 
04809000 Tt 0028 
04810000 7y 0028 
04811000 T 0030 

T 

a 


140 TS 


34 LONG, 


NEXT SEG 


04812010 T 0000 
04812020 T 0002 
04812050 T 0003 
04813000 YT 0007 
04814000 7 0012 
04815000 rt 0012 
04816000 7 0018 
04816100 T 0017 
04816110 T 0017 
04816120 T 0018 
04816130 7 0019 
04616135 tT 06020 
04816136 T 0022 
04816137 T 0024 
04816140 T 0026 
04816150 tT 0027 
04816160 Tt 0029 
“04817000 T 0039 °° ~ 
04818000 T 0030 
04819000 T 0030 
04820000 tT 0030 
04825100 T 0034 
04625200 7 0032 
04826000 tT 0032 
04832000 fT 0033 
04833000 fT 0036 | 
04834000 Tt 0038 
04835000 T 0039 
04836000 Tt 0039 


04837000 r 0042 
04838000 T 0042 


04839000 yr 0043 


"04840000 f 0043. 


ELSE EMITDESCLITCFILECHECK(™.PUNCHM20))3 0 


IF ROTRIN THEN EMITL(O) ELSE EMITPAIRC1sSSN)3 


04841000 p 0046 
04841100 fT 0048 


04843000 rT 0054 
04844000 P 0055 


“04845000 p 0056 


04845100 7 0088 
04846000 7 0039 


04848000 Tt 0063 


Qasan0te rT 00Ee 


Ee delacteind cay 


“QENETOOO FUSS" ee 


| 


GO TO FORMERS Te . ee oe 
SUCH! SCANS RANDOMTOGeSUCHTOGeTRUES INLINEFILE 3 
RANDOMTOG¢FREEREADeFALSE 3 
If NEXT # EQUAL THEN % RANDOM KEY 
BEGIN SCANS 
IF EXPRCTRUE) > REALTYPE THEN FLAGC102)3 
IF ROTRIN THEN EMITPAIR(19A00)3 
ENO ELSE IF ROTRIN THEN EMITLCO) ELSE EMITPAIR(1eSSN)3 
If NEXT = RPAREN THEN GO TO NF3 
If NEXT # COMMA THEN BEGIN FLOGC114)3 GO TO XIT ENDS 
SCANS 
Ip NEXT 2 ID THEN 
IF NAME * “ERR " OR NAME = "END 
BEGIN ACTIONLABELSCFALSE)3 
NF’ IF ROTRIN THEN EMITLCO) ELSE EMITPAIR(1sSSN)3 
EMITLCO)3 
NOFORMT ¢ TRUES 
SCAN3 GO TO NOFORM3 


" THEN 


coy MONDE, 5) L0 a ch Ainiint Sales Se 2 
FORMER? YF ADR 2 4085 THEN 
BEGIN ADR * ADR#13 SEGOVF END3 
le NEXT = NUM THEN _% FORMAT NUMBER 
BEGIN EDITCODE « 13 
IF TEST © LBLSHFTCNAME) <$ O THEN 
BEGIN FLAG(135)3 GO TO LISTER END3 
IF I ¢ SEARCHC(TEST) = O THEN % NEVER SEEN 
OF LOWHANGERSCI*ENTERCOSFORMATIDITOCLASS)» TEST)) ELSE 
IF GETCI),CLASS # FORMATID THEN 
BEGIN FLAGC143)3 GO TO LISTER ENDS 
IF XREF THEN ENTERXCTESTsO&FORMATIDETOCLASS))3 
IF GETCI),ADOR = © THEN | 
BEGIN EMITLINKCCINFC « GETCT + 2)).BASE)$ 2 
PUTCIT + 2s INFC&ADRITOBASE))3 
EMITLCO)3 EMITLCO)S EMITOCNOP)3 
END ELSE 
BEGIN EMITL(GETCI+ 2),BASE)3 
. EMITPAIR(GETCI) eADDR»sLOD)3 
oC) sedate an 
GO TO LISTER3 


END ELSe¢ IF ROTRIN THEN IFCFREEREAD t= NEXT=SLASH) THEN GO TO LISTER 
ELSE BEGIN IF NEXT NEQ@ ID THEN BEGIN FLOG(116)3G0 TO XIT3 ENDSEND 


ELSE If NEXT NEQ@ ID THEN 
BEGIN IF NEXT # STAR THEN 


BEGIN NAMEDESC t= TRUES GLOBALNAME t= TRUES 


TV t# ENTERCORLISTSIDETOCLASSI]oLISTIDI@LISTIDe! 3 
SCANS 
ENDS 
IF NEXT © LPAREN THEN 
BEGIN SCANS IF EXPR(TRUE) GTR REALTYPE THEN FLAGC120) 3 


“SCANS END ELSE EMITLCO)3 


IF GLOBALNAME AND (FREEREAD t= NEXT = SLASH) OR FREEREAD THEN 
_ GO TO LISTER ELSE BEGIN FLOGC110)5 GO TO XITS ENDS 


ENDS 
GETALLCI © FNEXT»INFAsINFBsINFC)3 
Ip T ¢ INFAsCLASS = ARRAYIO THEN % FORMAT ARRAY 
BFGIN EDITCODE « 13 
FORMARY « TRUES 


04849000 


64850000 


04850100 
04852000 


04653000 


04854000 
04855000 
04856000 
04857000 
04858000 


04859000 — 


04860000 
04861000 


— 04862000 


04863000 


04863100 
04863500 


04864000 
04865000 


04866000 


04866100 
04866200 


04867000 


04868000 
04869000 


04870000 


04871000 
04871100 


— 04877200" 


04873000 
04874000 


(04875000 


04876000 
04877000 


04878000 


04879000 
04880000 


— 04881000 © 


04682000 
04883000 
04883100 
04883150 
04683200 


04863300 — 


04883350 
04883400 
04883450 
04883500 
04883550 


~~ 04883600 - 


04883650 
04883700 


~ 04883750 


04884000 
04885000 
04886000 
04886050 


i 


i 
1 


i 
i 


SS sg SC RS LACE ev (nmr UE cot gg OR gt Haas WS 


| 


" & 


j 


t 


‘ 1 


T + EXPR(FALSE)3 
ADR ¢ ADR@™13 % ELIMINATE XCH EMITTED BY EXPR 
Ie EXPRESULT # ARRAYIO THEN FLOG(116)93 
GO TO LISTERLt3 % SCAN ALREADY DONE IN EXPR | 
END ELSE 
Ip T = NAMELIST THEN 
BEGIN NAMETOG 8% TRUES. SE OR eee cae ener 
IF INFAsADDR = O THEN % REFERENCED» NOT DEF 
BEGIN EMITLINKCINFC,BASE)3 
PUTCI+ 2sCINFC © INFCRADR(TOBASEI))3  . 
EMITLC@)3 EMITLCO)3 EMITOCNOP)3 
END ELSE 
BEGIN EMITLCINFCeBASE)3 
EMITPAIRCINFA.ADDR*LOD)3. 
END 
END. 7 a 
ELSE YF T = UNKNOWN THEN % ASSUME NAMELIST 
BEGIN PUTCIsCINFA © INFARNAMELISTETOCLASS)) 23 
_NAMETOG t= TRUES 
NFLOWHANGERS(I)3 
EMYITLINKCO)S PUTCI + 2s INFC&ADROITOBASE))3 
EMITLCO)3 EMITLCO)S EMITOCNOP)3 
EnD ELSE BEGIN XTA © INFB3 FLOGC116)3 GO TO xIT END3 
SCAN3 
Ip NEXT = COMMA THEN ACTIONLABELSCTRUE)S 
Ip SUCHTOG THEN 
IF NEXT # RPAREN THEN FLOG(108) ELSE SCAN3 
Ir NEXT # SEMI THEN BEGIN FLOG(118)3 GO TO XIT ENDS 
EmITL¢€O)3 EolrcOdeE « 43 EMITOPDCLIT(7)3 EMITOCFTIC)) 
Gn TO WRAP3 
LISTERE” SCANS 6 oo coos yetene clic aan even ah nce A heeds 
IF FREEREAD THEN IF NOT RDTRIN THEN 
BEGIN IF NEXT # SLASH THEN EMITOCSSN) ELSE SCAN3 
IF NEXT = LPAREN THEN 
BEGIN SCANS IF EXPROTRUE) > REALTYPE THEN FLAG(120)3SCAN. 
END ELSE EMITL(O)3 
END3 
LISTER1:? 
Ir SUCHTOG THEN 
BEGIN IF NEXT = COMMA THEN ACTIONLABELSCTRUE D3 


EnO ELSE IF NEXTSCOMMA THEN SCAN ELSE IF ROTRIN THEN 
IF NEXTZSEMI THEN FLOGC114)2 
NOFORMS IF NEXT#SEMI THEN 
BrGIN IF FREEREAD THEN FLOG(061) ELSE EMITL(0)3 GO TO WRAP ENDS 


IF CNEXT NEQ LPAREN) AND (NEXT NEQ IO) AND CNEXT NEQ STAR) THEN 


GO To XIT3 
EnITCORE « EDITCODE + 23 


DAAT?! EMITBCw1sFALSE)3 LAORY © LAX3 ADJUSTS DESCREG © TRUES 0 


IF aDR 2 4085 THEN 
BFGIN ADR © ADR4+13 SEGOVFS ADJUST ENDS 
ACCIDENT © PRGDESCBLORCO»02ADR+£36310) + LoNSEG)3 
EMITOPDCLITC1993 EMITOCGFW)3 
LISTART # ADR&NSEGETOSEGNOI3 ADJUSTS 
La ¢ 03  TOLISTCLA)3 ae ; peta, SEA ee 
EMITLE1)$  EMITOCCHS)$  EMITLO19)3 EMITOCSTO)3 
EMITDESCLIT(19)3 EMITOCRTS)3 


04921000 


04886100 T. 
04887000 T 
04887100 T 
04888000 T_ 
04889000 T 
04890000 T 
04890100 T 


04891000 + 


04892000 T 
04893000 T_ 


“04894000 T 


04893000 T 
04896000 T 


04897000 T 


04898000 T 
04898100 fT. 
04899000 T 
04900000 T 
04900100 T 


04902000 T 
04903000 T 


04904000 FT 


04905000 T 
04906000 T_ 


~~ 04907000 T 


04908000 T 
04909000 Tf 


04911000 T 
04942000 7 


04912100 r O216 


04912200 7 
04912300 T 


04912500 T 
04912600 T 


— 04912700 7 


04913000 T 
04914000 7 


~ 04915000 Tf 


04916000 T 


04916100 FT 
04917000 T 


04917100 fT 


94918000 TO 


04918100 Tf 
04919000 fT 


04920100 7 
04920200 T 


04922000 T 


04923000 7 


04924000 7. 


04925000 T 
04926000 T 


“Gas0io00 T O1ee 


04910000 fT 0212 


04912400 T C222 — 


04920000 y 0249 20 


te 


FrXBCLAOR1)3 DESCREQ + FALSES 
If DATATOG THEN 
BFGIN DATASETS 
IF NEXT = SLASH THEN SCAN ELSE 
BEGIN FLOG(110)3 GO TO xIT ENDS 
If LSTA#O THEN BEGIN BUMPPRTS LSTA*PRTS ENDS 
IF CLSTMAX = LSTI) $ LSTS THEN 
BEGIN WRITEDATACLSTIANXAVIL © NXAVIL # JaLSTP)3S 
LSTA © PRGDESCBLDR( 1sLSTA»O*NXAVIL)3 
LSTI « 03 BUMPPRTS LSTA*PRTS3 


END3 

MOVEWCLSTToLSTPELSTIIJs(LSTS © LSTS + 1),03686)eLSTS)3 
EMITOCMKS)S EMITLCLSTIDS EMITPAIR(LSTA»LOD)3 

LST1 « LSTI + LSTS3 i. Lay: 
EMITPAIRCACCIDENT»LOD)3 EMITOPDCLITC7)3 EMITOCFTF)3 
EMITL(6)3 EMITLCO)S EMITLCODS 


EMITVCNEEDC "se FBINB”™sINTRFUNID) 23 

IF NEXT = COMMA THEN 

BEGIN SCAN$ GO TO DAAT ENDS 

IF SPLINK 2 O THEN BEGIN 

EMITBC*1sFALSE)sS DATALINKeLAX3 

FIXBCDATAB) END3 

GO To XxITs 
Ends 
ENITPAIRCACCIDENT»LOD)3 EMITOPDCLIT¢C7)3 EMITOCFTF)3 
WRAPS 
IF ROTRYN THEN 
BEGIN If NX1 = 0 THEN EMITL(O) ELSE EMITLABELDESCCNX1! )3 

IF NX2 = 0 THEN EMITLEO) ELSE EMITLABELDESCC(NX2)3 

lf FREEREAD THEN EMITVCNEEOC",FREFR"» INTRFUNID)) 

ELSE IF NAMETOG THEN EMITVCNEEDC™eF INAM"sINTRFEUNID) ) 


ELSE IF FORMARY THEN EMITVCNEEDC" FTINT®s INTRFUNID)) 


ELSE IF NOFORMT THEN EMITVCNEEDC"eFBINB*sINTRFEUNID) ) 


ELSE EMITVCNEEDC™eFTNIN"SINTRFUNIO)IS 


END ELSE 
IF FREEREAD THEN 
BEGYN 
IF NAMEDESC THEN 
BEGIN 


PRTSAVERCTVsNAMEIND#1¢NAMLISTOS 


TEMITLOGETCTV+2), BASED). 
EMITPAIRCGETCTV 6 ADDReLOD)3 
IF NAMLIST£LO] = O THEN EMTTL(O) 


“ELSE EMYTPAIR(GETCGLOBALSEARCHE™. SUBAR®)DeADDReLOD)$ > 


NAMLIST£O) t# NAMEIND 83 O3 
END ELSE BEGIN EMITLCO)SEMITLCOISEMITLCODSENDS 


EMP TVENEEDC™ <FREWR™ s INTREUNIDIY eee 
ENp ELSE IF NAMETOG THEN EMITVCNEED(™.FONAM"» INTRFUNID)D 

_ELSE IF FORMARY THEN EMITVCNEEOC™FTOUT"s INTRFUNID) ) 
TE IE ag NE aS gn ee dene te er eats Lenn eat OOS OOOO: sf a0, 


a SELSE BEGIN 


le NOT FREEREAD AND NOT NAMETOG THEN EMITLCEDITCODE)S — 


IF NX1#0 THEN EMITL(O) ELSE EMITLABELDESCC(NX1)3 
IF NX230 THEN EMITLCO) ELSE EMITLABELDESC(NX2)3 


TE NOFORMT THEN EMITTVCONEEDC* FBINB™sINTRFUNIO)) ELSE 7 


EMITVCNEEDC™eFINOU"s INTRFUNID) 23 
END} 
XITs 
IF nAMEDESC THEN IF ROTRIN THEN FLAGC159) 


€ 4 t « a “ . 6 


04927000 Tt 0269 
0a928000 tT 0274 
04929000 T 0274 
04930000 Tt 0272 
O49TT000 FT O274 
04932000 T 0277 
04933000 T 0283 
04934000 T 0284 
04935000 tT 0287 
04936000 T 0289. 
04937000 7 0294 
04938000 tT 0294 
04939000 tT 02986 
04940000 TT 0306 
04941000 T 0302 
04942000 T 0304 
04943000 tT 0306 
04944000 7 0308 
04945000 T 0309 
04946000 tT 0312 
04946500 y 0313 
04946600 T 0315 
04947000 7 0316 
04948000 7 0316 
04949000 + 0316 
“04950000 7 0319 
04953000 rt 032, 
04952000 T 0321 
“04953000 + 0325 
04954000 7 0328 
04954050 T 0330 
~ 66954{00 tT 0334 
04954150 fT 0338 
04954200 t 0342 
~ 06955000 tT 0346 
04996000 tr 0346 
04956005 fT 0348 
“04956010 T 0348 
04986020 T 0349 
94956040 TF 0350 
04956100 + 6352 
04956200 7 0354 
04956500 T 0356 
“C4956550 T 03556 _— 
04956600 T 0362 
04956650 T 0363 
““OURISE7I00 Y VsIsq 7 
04956750 7 0369 
046956800 tT 0373 
are 
04956910 T 0380 
04956920 T 0383 
““OUFS6025 F O3B6 
04956930 fT 0368 
04986940 T 0392 
046957000 + 0392 
04957050 fT 0393 


e @ 


‘ * 


F ai TLAGCL 
DATATOG t= FALSESO RABE DE Se eee Eee EEN eee oes Pe aLsEs 84325088 t 8988 
IF DEBUGTOG THEN FLAGROUTINEC™ IOCOM"s"MAND "sFALSE) 3 04957110 T 0405 
END IOCMMMAND3 04958000 T 0407 
139 18 414 LONG» NEXT SEG 6 
PROCEDURE STMTFUNCLINK)3 VALUE LINKS REAL LINK3 04959000 Tt 0556 
BEGIN 04960000 T 0556 
DEFINE PARAN = LSTT#3 04961000 7 0556 
START OF SEGMENT weettwetow 14) 0 
REAL SAVEBRAD» I3 04962000 7 0000 
REAL INFA» INFC» NPARMSs TYPEs PARMLINKs BEGINSUBs RETURN? 04963000 Yr 0000 
LABEL XITsTIX 3 04964000 r 0000 
IF SPLINK < 0 THEN FLAG(12)3 04964100 7 0000 
LABL « BLANKS$ 04964200 + 0002 
FILETOG « TRUE} % PREVENTS SCANNER FROM ENTERING IOS IN INFO —= 04965000 T 0002 
IF XREF THEN ENTERXCGETCLINK+1)2O0&8STMTFUNIDECTOCLASS) 04965100 T 0003 
RCGETCLINKII£21221839)3 04965200 7~ O007 
so} 8) 04966000 T 0008 
BEGIN 04967000 T 0009 
SCANS 04968000 T 0009 
IF NEXT # IO THEN BEGIN FLOGC107)3 GO TO XIT END3 04969000 7 0009 
PARAMECNPARMS¢NPARMS413 © NAME3 —T ae — ~ 064970000 F OOf2 
SCANS 04971000 fT 0014 
END UNTIL NEXT #2 COMMA; 04972000 T O014 
IF NEXT # RPAREN THEN FLOG(108) ELSE SCAN3 ~~ “O4973000 F OUT6 - 
04974000 rf 0049 
IF NEXT # EQUAL THEN BEGIN FLOGC104)3 GO TO XIT ENDS 04975000 T 0019 
 EMYTBC=£, FALSED} SAVEBRAD © LAX} % BRANCH AROUND ST FUN = "94976000 T OO8G 9000 
ADJUSTS 04977000 7 0023 
BEGINSUB © ADR+13 04978000 y 0024 . 
BUMPLOCALSS EMITPAIRCRETURN©LOCALS4#15362S70)3 "96979000 F 0025 #2 © 7 
FOR I ¢ NPARMS STEP {4 UNTIL 1 DO 04980000 fT 0034 
EN aura Ne ay ated Pra eh hat de wheat eds ees aye So timing de Gan at weg A pee ata ah SOO OO Me OOS A eS sn aie ota wd 
IF T © SEARCHTPARAMEY]) # 0 THEN 04982000 f 0033 
TYPE ¢ GETCT),SUBCLASS ELSE 04983000 T 0035 
UF TePARAMOCID 01286) < "I" OR TO > PNY THEN 04988000 FT 0087 
TYPE «+ REALTYPE ELSE TYPE « INTYPE3 04985000 tT 0040 
EMITSTOREC ENTERCOSVARIDETOCLASSIGILTOTYPF) 04986000 7 0043 
ow BS TYPECTOSUBCL J, PARAMCI])» TYPE)3 ce 94987000 FT 0046 
IF XREF THEN ENTERXCNAMEs O8 VARID(TOCLASSI&ATYPEC TOSUBCLI)3 04987100 + C048 
END3 04988000 Tt 00592 
_-PARMLINK © NEXTINFO*33 94989000 FT 005g 2 
GETALLCLINKs INFAs XTAs INFC)3 04990000 rt 0055 
FILETOG «+ FALSES . 04991000 y 0057 
0 BQ URINE en roe wee me ee Na tas es og Nl ess i eet tet ee OO OOM I Oe Et: hai 
IF CTYPE*CINFA*GETCLINK)) «SUBCLASS ®LOGTYPE OR TYPE=COMPTYPE OR 04993000 fT 0058 
CI*EXPRCTRUE))2LOGTYPE OR I=#COMPTYPE THEN 04993500 T 0064 
_.. BEGIN IF I/TYPE THEN FLAGC(139)3 GO TIX END 3 = 9995 LO T 0065 ahieen ae BM ate 
IF TYPESREALTYPE OR TYPESINTYPE THEN 04993530 7 0068 
BEGIN 04993540 tT 0069 
If Y=DOUBTYPE THEN BEGIN EMITOCXCH)$S EMITOCDEL) END 3 04993550 tr O0O?FO 
IF TYPERINTYPE THEN IF I#YNTYPE THEN EMITPAIRC1sI0V) 3 04993560 T 0073 
GO TIX 3 04993570 r 0076 


@ 
e 
: END § 04993580 7 0077 
i IF IZNOUBTYPE THEN EMITPAIRCOsxXCH) 3 04093890 7 0077 
@ | TIX: 04993595 T 0079 
EMITOPDCLITCRETURN) 3 __ 04994000 T 0086 
EMITOCGFW)3 04995000 + 0080 . 
®@ FIXBCSAVEBRAD)3 04996000 7 0084 
a IF INFAsCLASS ¥ UNKNOWN THEN FLAG(140)3 04997000 rt 00682 
PUTCLINK» “INFA & {ETOTYPF) & NSEGLTOSEGNOI 04998000 + O0B84° ~~ O 
@ & STMTFUNIDITOCLASS] & BEGINSUBLTOADORI)3 04999000 T 0087 
7 04999500 7 0090 
“PUTCLINK#2s #(€0 & NPARMSCTONEXTRA) & ADRETOBASE) ““O5000000 + “0090 
@ & PARMLINKE36136212]))3 05001000 r 0092 
PARMLINK « PARMLINK#43 05002000 7T 0094 
FOR I ¢ 4 STEP 1 UNTIL NPARMS 90 = QS O03000 TT O09R” ss 
@ PUTCPARMLINK «© PARMLINK@3y "“ seseee™)3 05004000 tT 0097 
xITt ee a | 05005000 rt 0104 
FILETOG « FALSE3 i. "98806000 7 0102 
& END STMTFUNS - 0§007000 Tt O102 
141 TS 108 LONG, NEXT SEG 6 | ips 
® 
@ PROCEDURE ASSIGNMENTS 05008000 t 0556 
BEGIN — ae — 05909000 T 0556 
LABEL XIT3 05010000 r 0556 
] START OF SEGMENT ##a¥etewew 142 
BOOLEAN CHCKS | | | eee 05010500 fT 0000 
BOOLEAN f3 ~ "65010606 T 0000 °° ~~ 
@ IF DEBUGTOG THEN FLAGROUTINEC™ ASSIG"s"NMENT "sTRUE ) 3 05011000 7 0000 
FX1 © FNEXT3 | . ee 05012000 y 0002 
SCANS = = 988149000 7 0009 
@ IF NEXT = LPAREN THEN 05014000 tr 0003 
BEGIN . _ oo 05015000 T 0004 
CHCKETRUES 05015500 7+ 0004. 
@ IF GETCFX1)eCLASS = UNKNOWN THEN 05016000 T 0005 
IF ENDS THEN 05017000 rt OCcO?7 
BEGIN XTA © GETCFX141)3 FLOGCOSS) 3 7 “ESOT OLO F OOOF ee 
 ] PUTCFX1sGETCFX1) & ARRAYIDETOCLASS)) 3 05017020 r 0010 
_ PUTCFXI+22GETCFX142) & 1CTONEXTRAI) § 2 05017030 T 0083 
END 05017040 Y 0016 
@ ELSE REGIN STMTFUNCFX1)3 GO To XIT END 3 05017050 T 0016 
If XREF THEN ENTERXC(GETCFX1¢1 )sS8GETCFX1) £C15%1599))3 08017055 y O02; 
E0DS « TRUE 3 05017060 7 6025 ~~ Te 
® eS eupeeee 05017100 7 0026 
ae _ SCAN seiee tvtens mtn su qui antes pie teen ete eine tt einai. .,95018000 T 0026 
I «  suaSCRIETSCE aT. ————"§GOL9000 7 COap 
e SCANS 05020000 fT 0024 
Ree ete B22 i 25 | 2 nn SE i ee ne 05021000 t 0029 
BEGIN ee FSO22000 PT O0DG rn 
@ EapSeTRUE 3 05022010 7 0029 
seca i WA. ane Lain wate UE Steet OE oth yt OREO WOE Si eM ce Nac ty. enn wtteritn et _ 05022100 T 0030 
IF oT © GETCFX1) CLASS = ARRAYIQ THEN re O508I000 F COSY ee ee 
e BEGIN XTA © GETCFX141)3 FLAGC74) ENDS 05024000 7 0033 
MOVEWCACCUME1 1#HOLOIDL0I»0,3)3 05028000 7 0036 
mee Sg = tf XREF THEN IF HOLOYOTO).C12912] # "DO" THEN” Cty ee = -Q5025T00 T (0038 a 
® SNTERMCGETCRXA0TS LLEGET CEN EN) g14219 978A GIDE TOELASSASD 05025200 T 0040 
@ e te ‘ / ry * e ‘ 


e nc 


: i i 1 ‘ : 
: 1 t 5 : 


END$ 


BEGIN 


BEGIN 


END; 


IF NEXT # EQUAL THEN BEGIN FLAG(104)3 GO TO XIT ENDS 
SCAN3 
IF NEXT#SEMI OR NEXTSCOMMA THEN BEGIN FLOGCO)3 GO TO XITS ENDS 
FX2 ¢ EXPRCTRUE)3 
IF NEXT NEQ@ COMMA THEN IF HOLDIDCO) = "D0" THEN IF XREF THEN 
ENTERXCHOLDIOLO] s1QGETCFX19£21921831 QVARIOCTOCLASSI 3 
IF NEXT = COMMA THEN IF CHCK THEN FLOG(56) ELSE ~~ 
IF HOLDID(CO],€12!123 * "DO" THEN FLOGC(56) ELSE 
IF LOGIFTOG THEN FLAGC101)3 
IF FX2 > REALTYPE THEN FLAG(102)3 
IF DT « OT+#1 > MAXDOS THEN BEGIN DT © 13 FLAGC138) ENDS 
EMYTNCFX1i¢ CHECKDOD3S 
EMrTO¢cSTD)3 
SCAN} 
IF NEXT#SEM] THEN BEGIN FLAG(36)3 GO TO xIT ENDS 
IF CACCUMCO] = ", " OR ACCUMCO) » "3 *) AND 
GLOBALNEXTSNUM AND ABSCFNEXT) > $023 THEN. 
BEGIN 
IF EXPRCTRUE) > REALTYPE THEN FLAG(102)3 


IDINFOtSREALIDSFNEXTSSENTERCIDINE Os M2FNVOO"ROTCI61369129)5 — 


EMI TNCFNEXT&sGETSPACECFNEXT))3 EMITOCSTD)3 
EMITAC™1»FALSE)$ LADRit*Laxs ADJUSTS 
LADR2 ¢ CADR+1) & NSEGCTOSEGNOIS EMITVCFNEXT)3 
END 
ELSE BEGIN 
EMITBC*1sFALSE)3 LADRISSLAX3 ADJUSTS” 
LADR2'®(ADR+1 )ENSEGCTOSEGNO)) 
IF EXPRCTRUE) > REALTYPE THEN FLAG(102) 3 
of AND De ord Ne Sate 
EMITOCGRTR)3 
EMITBC@1» TRUE) 
LADR3 « LAX3 
EMITBC*ts FALSE)3 
ADJUST 
DOTESTCDT] ¢ CADR+1) & LAX£TOADDR] & NSEGETOSEGNOI3 
IF NExt # COMMA THEN EMITL¢1) ELSE 7 


SCAN3 wane cane eit A 
IF NEXT#SEMI THEN BEGIN FLAGC36)3 GO TO XIT END 3 
IF EXPRCTRUE) > REALTYPE THEN FLAGC102)3 


EMITVCFX1)3 
EMITOCADD)3 
EMTTNCFX1)3 
EMITOCSTN)) 
EMITB¢CLADR2s FALSE)3 
FIXBCLAORI)3 
FIY¥BCLADR3)3 


END ELSE EMITSTORECFX1s FX2)3 


X1Ts 


IF DEBUGTOG THEN FLAGROUTINEC™ ASSIG"s"NMENT "sFALSE) 3 
ENO ASSYGNMENT} 


142 


...95026000 


~ 05030000. 


~ 95032000 — 


05038000 


05027000 
05028000 
05028010 


05029000 


03029200 
05029400 


05030100 
05031000 


05033000 
05034000 


05036000 


95037000 


95039000. 


905041400 


~~ 05049000" 


05054000 


05059000 | 


05036000 
05038900 


05040000 
05041000 


05041100. 


05041200 
05041300 


05041450 
05041500 
05041600 


05041700 


05041800 
95042000 
05043000 
05044000 


05045000 


05046000 


05047000 
05048000 


05050000 
05051000 


05051100 


05052000 
05053000 


05055000 
05056000 


05057000 


05058000 


05060000 
05061000 


05062000 


~ 05062010 


Is 


05063000 


se ee 


145 LONG, NEXT SEG 


Piast 


@ & 
fi 


__ 


. 


i 


BOOLEAN PROCEDURE RINGCRECK3 


COMMENT THIS PROCEDURE PREVENTS THE POSSIBILITY OF DELINKING A 
HEADER FROM THE HEADER RING3 

BEG TN, oe oe coe dew, 
INTEGER I3 
leas 
po 
IF I « GETCCIT)«ADOR = ROOT THEN RINGCHECK «+ TRUE 
UNTIL J = As. 


END RINGCHECK3 


PROCEDURE SETLINKCINFADDR)S VALUE INFADDR3 INTEGER INF ADDR? 
COMMENT THIS PROCEDURE LINKS AN ELEMENT TO ITS PREVIOUS HEADERS 
BEGIN 

INTEGER LAST#I3 REAL COML$3 LABEL XIT3 


XIT3 
LAST ¢C€CGETCCINFADDR) «LASTC)#13 
FOR I « INFADDR+2 STEP 4 UNTIL LAST 
DO REGIN IF GETCCTE)eCLASS = ENDCOM THEN I*GETCCI) LINKS 
IF FXL = CCOML+GETCCID) «LINK THEN 
IF INFADDReCOML eLASTC2A THEN COMCPWI),LASTCeROOT 
a ELSE GO xIT 3 
FNOS 
END SETLINK3 


PROCEDURE DIMENSIONS 


BEGIN 


LABFL L, LOOP, ERROR 3° 2 


BOOLEAN DOUBLED» SINGLETOGS 
IF DEBUGTOG THEN FLAGROUTINEC™ DIMEN» "SION 
IF LOGIFTOG THEN FLAG(101)3 
LABL «© BLANKSS tae 88 feti  oket ee at NaS teen oR here, ake te da ahah ahaa Oh 
IF NEXT=STAR THEN IF TYPE*DOUBTYPE THEN 
REGIN 
SCAN 3 
“YF NEXTsNUM AND NUMTYPE®INTYPE THEN 8 = = 7” 
BEGIN 
IF FNEXTs4 THEN 


ie 


SINGLETOG «+ TRUE} 

IF TYPESCOMPTYPE THEN FLAG(176)3 

END 3 
IF FNEXT#& THEN 

BEGIN 

IF TYPERREALTYPE THEN TYPE *DOUBTYPE 

ELSE IF TYPEZCOMPTYPE THEN FLAG(177) 3 


(Gok 


START OF SEGMENT 


143 18 


START OF SEGMENT 


144 I8 


C71 aia cee 


30070 


143 


144 


145 


05663100 7 05856 
05063110 T 0556 ~ 
05063120 r 0556 
05063200 T 0556 
08063250 + 0556. 
Pees 2 ee 
05063300 r 0000 
05063350 fT 0000 
05063400 fr 00014 
05063450 7 0004 
08063500 TY 06005 
9 LONG, NEXT SEG 
"05063600 T 0856 ~ 
05063601 T 0556 
05063610 T 0556 
05063620 t 0556 
rr er ee 
05063625 Y 0000 
05063630 y 0000 
05063640 7 0002 
05063650 7 0005 
05063660 7 0010 
05063670 T 0012 
058063680 yr O018 
65063710 T 0019 
05063730 Y 0020 
23 LONG, NEXT SEG 
08064000 7 0556 
05065000 f 05564 
05066000 y 0556  — 
START OF SEGMENT eveetwntae 
05066005 P 0000 
05066010 T 
05667000 ft 0002 
05067100 T 0004. 
05067210 + 0004. 
05067220 + 0006 
05067230 + 0007 
~ 08067240 T 
05067250 T 0009 
05067260 T O010 
05067270 T O010 
05067275 ¢ O0%4 
05067280 T O012@ 
~ 05067290 y+ OO017 
05067300 tr OO17 
05067310 7 0017 
05067320 Tt O0ta 
05067330 r 0019 


i : : ! ; 


:Y ¢ a a . @ 
@ 
GOL 3 . . 05067340 y+ 0022 _ 
END $3 05067350 T 0023 
END 3 05067360 T 0023 @ 
FLAGCIF TYPERREALTYPE THEN 178 05067370 T 0023 
ELSE L77"REALCTYPE=COMPTYPE)) 3 os 05067360 7 0024 
NCREREALCNCR, C3083) £0)+3"677777%4NCRS SCN#13 SCAN 3 05067390 7 00a7 ® 
END 3 05067420 Tr 0034 
LOnPt DOUBLED*FALSES = ke ee — ~~ "05068000 T O03," 
IF NEXT # ID THEN BEGIN FLOG¢105)3 GO TO ERROR END3 05068100 ry 0034 @ 
FX1 © IF SINGLETOG THEN “FNEXT ELSE FNEXT3 05869000 P 0036 
tf TYPE >» DOUBTYPE THEN” a FYX ARRAY YYPE OFR” (occ oo ageggpog pe pesg coe 
PUTCFEXLeGETCFXIISTYPECTOSUBCLI)% % BOUNDS ROUTINE 05069200 Tt 0039 e 
IF XREF THEN BEGIN INFA © ORGETCFX1)C1591539)3 08069300 7 0042 
‘IF TYPE>0 THEN INFAeSUBCLASS¢TYPES | “08069400 T 6045 ” 
END3 05069500 T 0048 @ 
XTA © INFB © NAME} ay ee ee _.. .08070000 ry 0048. 
SCANS 05071000 T 0049 
IF XREF THEN 05071100 Tr 0050 e 
BEGIN TF _INFAsCLASS = UNKNOWN THEN ccerws sue . 25071200 T0050 
INFAsCLASS¢IF NEXTSLPAREN THEN ARRAYID ELSE VARID3 — 05071300 T 0052 
ENTERXCINFBs INFA)3 05071400 fT 0056 & 
_ ENDS -...,, 05971500 T 0057 
IF NEXT®LPAREN THEN BEGIN SCANS DOUBLED*BOUNDS(FX1) END ELSE 05072000 T 0057 
IF TYPE = ™1 THEN FLOG(103)3 05073000 rt 0060 & 
GETALLCF Xs INFAs XTAs INFOQS (0 net ween ee 95074000 7 0063) 
IF TYPE > O THEN 05075000 tr 0064 
IF BOOLEANCINFAsTYPEFIXED) THEN FLAG(31) ELSE 05076000 7 0068 r 
BEGIN ee Seats “dethaatte,Tatenditel <ebepiar adic suture Et ameter DOT COUN ptOUOT ccm chats 
IF TYPE > LOGTYPE THEN - 05078000 + 006a 
IF GETCFX142) <O THEN 05078200 7 0069 @ 
CORN hk int eRe shall nit wae emt ateeNy te Bh eal aan i ends bites dsc. atine Maid sade ee OOO ah COT Nios tone Os box ira etd 
IF NOT OOUBLED AND INFAeCLASS=1 THEN 65078500 tT 0074 ike 
BEGIN 05078800 T 0073 & 
BUMPLOCALS3 oh AG dRM GM. ante Ree woke coe. a Keehn Srt®. sete cen og BBOTAOOO T0074 
LENGTH*LOCALS “+ 153463 05079200 T 0078 
PUTCFXI+22INFC & LENGTHCTOSIZE])3 05079400 ry 0079 @ 
Peer 2) | ieetre See Mt Men Nr WA Ne Aer Ce a ee ee 7 05079600 7 008. 0 
ENN ELSE IF NOT OOUBLED THEN 05079800 yr 0061 
BEGIN IF INFC,SIZE > 16383 THEN FLAG(99)3 05079900 T 0083 e 
PUTCFXie2eINFC &@ C2 x INFCeSIZEXETOSIZEIIF Oo, 205080000 T0086 
END3 05080100 rT 0089 
PUT CFXieINFA & ACLTOTYPF] & TYPELTOSUBCL))3 05080500 rt 0089 @ 
END} iG BN cae aA PN Ea Pe a ent Gm Eee eh a tea lat Mectaen ulate tnt ttesuars pel SOO ROO tN OOP Ec. fst ict let es 
IF INFA < 0 THEN FLAGC39) ELSE 05082000 T 0092 
IF TYPE = 2 THEN 08083000 + 0094 rd) 
ND eae eS east ae EM ed ce Cs nre, hte tuts Mapeielientens Binal as nad tbat Boca ue ada) Sdn DOOM OOO INE MOM ye sii k ens Ae i 
BAPCCINFAGFXIUCTOL INKIGLLTOCEJ&ROOTCTOLASTCI)3 05085000 + 0097 
IF BOOLEANCINFAeCE) THEN FLAG(2)3 05086000 7 0104 @ 
PF BOOLEANCINFACEQ) THEN ee en va teens seve ace ne wee 950864900 7000203 00 
BEGIN 05087000 tT 0104 
COMENEXTCOMsIR*NEXTCOMSICI.LASTC © A * INFASADDRI 05688000 tr 0104 @ 
sJBEGE TOC OUT AOD Fn copie, tire oan, uceeatestetd apie enc ae th Salt alten atti Ma tat badass aud eniAs OOOO OO Oa Ne ON OW ce. cise ily Joke Jee is 
SETLINKCAD3 05089050 ry O114 
IF NOT RINGCHECK THEN 05089100 rt 0112 r 
BEGIN eee i 05089200 T 0113 
OT Git PWROGTICADDREGETCCAYLADDR oF -- ee 
PUTCCAsGETCCAI&BETOADDRIS7CTOSUBCL)) 3 05091000 T O118 e 
@ 


{ 
' 
i 


! 
t 
t 
{ 
\ 


| 
| 
| 
if 
| 


END . 05091100 7 0122 
END ELSE 05092000 r 0123 
PUTCFXis INFA & 1£TOCE) & ROOTETOADDRI)3 05093000 7 0122 
IF BOOLEANCINFAeFORMAL) THEN FLAGC10)3 05094000 y 0125 
END; 05095000 7 0:27 
IF ERRORTOG THEN 05096000 T 0127 
ERRMR! . | 05096100 Tr 0128 
WHILE NEXT # COMMA AND NEXT # SEMI AND NEXT # SLASH DO SCAN} 05097000 tT 0129 
IF NEXT = COMMA THEN BEGIN SCANS GO TO LOOP END3 05098000 r 0133 
IF DEBUGTOG THEN FLAGROUTINEC(™ DIMEN"s "SION “sFALSE) 3. 05098010 T 0135 
END DIMENSIONS 05099000 r O137 
145 318 142 LONG, NEXT SEG 
PROCEDURE FORMALPPCPARMSREQs CLASS)3 VALUE PARMSREQs CLASS3 “05100000 7 0556 ~ 
BOOLEAN PARMSREQ} REAL CLASS3 05101000 7 0556 
BEGIN a 95102000 T 0556 
ERBRE LOO re> Aa 05103000 7 05546 
START OF SEGMENT wanttwanne 
IF DEBUGTOG THEN FLAGROUTINEC™ FORM"»"ALPP "sTRUE ) 3 05103010 T 0000 
PARMS « O} 05104000 7 0000 
SCAN} 05105000 ft 0009 
IF NEXT # IO THEN BEGIN FLOGC105)3 GO TO XIT ENDS | 05106000 7 0003 
IF CLASS = FUNID THEN ~ 05106100 ft 0008 
IF FUNVAR = 0 THEN 05107000 7 0008 
BEGIN 05107020 T 0010 
1fF TYPE > O THEN “05107030 fT OOf6 ~~ 
IF FUNVAR ¢ GLOBALSEARCH(NAME) ¥ 0 THEN 05107040 T OO0L4 
IF BOOLEANCC(T © GETCFUNVAR)) eTYPEFIXED) AND TYPE ¥# TeSUBCLASS 05107080 T 0013 
RA BCST SR on en ne oes cn tetas Mn a oncens so ae BORE BOER 
PUTCFUNVAR © FNEXTsGETCFNEXT) @ VARIDETOCLASS])3 05107100 7 0018 
ENDS 05107160 7 0024 
FNEW «¢ NEEDCUNNEW ¢ NAMEs CLASS)3 ~  UBLOS000 F O02, 
ENTERXCNAME*IF CLASS = FUNID THEN 05108100 7 0023 
L8GETCFNEWIC15319539) ELSE 1AGETCFNEW)C1591585))3 05108200 r 0024 
SCANS ne nee caren tere a nr ea anne een RTE 
IF NEXT # LPAREN THEN 05110000 7 0030 
a TF PARMSREQ THEN FLOG(106) ELSE ELSE  ..95111000 T 0030 
BEGIN ——"“O8T12000 F O37, 
LOOp: 05113000 tT 0033 
SOONG ok sconces tad sien te Gane Sane aai ty Sep Sone Pleat a PO fate inks we deere te, Oe 05114000 7 0034 
IF NEXT = 10 THEN PARMLINKCPARMS « PARMS41) © FNEXT ELSE ~~ ~~ 7 OSTTS000 T0034 
IF NEXT#STAR AND CLASSZFUNID THEN PARMLINKCPARMS*#PARMS#41 )*OELSE 05116000 T 0038 
Saige patsset PICO G CMO TDG 8. ie tin Sali el a rit tine, syn shan, Oats . 05117000 Tt 0042 
IF XREF THEN ENTERXCNAMES IF NEXT = STAR THEN O ELSE UU UUUUCTUUC CT CC OST 00 F 008g 
O&GETCFNEXT)C15915#9193 OS117180 T 0047 
ORIN Do jaan a ee Brett A Ne aa, etn een tains ote pers weet, ee oe ERB OOO TOONS: 
IF NEXT # COMMA THEN GO TO LOOP? 05119000 7 0089 
IF NEXT # RPAREN THEN FLOGC108)3 05120000 rt 0054 
wg SB Pr ale Beth PIG hh ey Nasa sat, pee, tute sesnie . 05121000 T 0053 
eNO; Stee ceeeeenninnmens wanna canatamemet me EOE QRS” 
IF NOT ERRORTOG THEN DECLAREPARMSCFNEW)3 05123000 7 0053 
XIT?: ne ee ee ee 05124000 T 0058 
IF DEBUGTOG THEN FLAGROUTINEC™ FORM*s"ALPP “sFALSE) 3 05124010 7 6056 
END FORMALPP3 05125000 T 0058 
e e e a ry . 


6 


146 


i 


i 7 : H ! : ! i 
i : H i ; 


4 


if 

| i 
ae 
3 j 
| | | 


BEGIN 


FOUND! 


BEGIN 


X1Te. 


PROCEDURE ENDSS FORWARD} 
PROCEDURE FUNCTION 3 


REAL A»sBeCol3 LABEL FOUND 3 


IF SPLINK NEQ © THEN BEGIN FLAG(5)3 ENDSS SEGMENTSTARTS ENDS 


LABL « BLANKS} 
FORMALPPCTRUE»s FUNID)3 
GETALLCFNEWs INFAs INFB» 
BeNUMINTM1 3 
WHILE A+1<B O09 
BEGIN 
IF C*INTCI©REALCBOOLEANCA4B) AND BOOLEANC1022))JeINFB 
THEN GO FOUND $ ea : 
IF INFB<C THEN Bele( 36211) ELSE Ael.£36811) 3) 
END 3 
IF INFBeINTCIT*#CA+B)x2"1) THEN GO FOUND 3 
IF FALSE THEN 


INFC)3 


IF BOOLEANCINTCI¢13,INTSEEN) THEN BEGIN XTA*INFB3 FLAGC167)END3 


IF TYPE<O THEN TYPE*INFAeSUBCLASS&1[2ta7%1) 3 $4 
PUTCSPLINK © FNEWs INFA & ICTOTYPF) & TYPECTOSUBCLI)3 
PUTCFUNVARs GETCFUNVAR) & VARIDETOCLASS] & ICTOTYPF) & 


TYPECTOSUBCLI)3 


END FUNCTIONS 


PROCEDURE STATEMENTS FORWARDS 
PROCEDURE ASSIGN3 


LABEL XITS 


EQDS*¢TRYE 3 | 

EXECUTABLE3 

SCAN3 

IF NEXT # NUM THEN BEGIN FLOG(109)3 GO TO XIT ENDS 


“IF XREF THEN ENTERXCFNEXT*s O&8LABELIDCTOCLASS) 3 


EMYTNUMCFNEXT )3 


SCANS _ 


IF NEXT # 10 THEN BEGIN FLOGC105)) GO TO XiT END} 

IF XREF THEN ENTERXCXTAPLAGETCENEXT (152159913 
-EMLINCPNEXT IS _ eee ee ea rene ee ae ene, 
EMITOCSTO)3 

SCAN3 


END ASSTGNS | 


148 18 


446 TS) 61 LONGs NEXT SEG 
05125100 7 0556 
05126000 T 0556 
05127000 T 0556 
05127100 YT 0556 
START OF SEGMENT «eet tawee 
05128000 Pp 0000. 
05128100 rt 0003 
05429000 7 0003 
05130000 fF 0004 
05130100 rt 0006 
05130110 7 0007 
05130115 T 0008 
05130120 yr 0008 
05130125 fF 0014 
05130130 + 0012 — 
05130135 rt 0016 
05130140 7 0017 
05130145 r 0020 
05130130 rt 0020 
05131000 y 0028 
05132000 tT 0029 
05133000 + 003a 
-.05134000 7 0035 | 
05135000 + 0037 
147 IS 40 LONG, NEXT SEG 
O5136000 fF 0556 
05137000 r 0556 
05138000 T 0556 
05138100 fT 0556 
START OF SEGMENT wewettdwwwe 
. O5138110 7. 
05139000 T 0000 
05140000 Tf 0004 
05241000 7 0004 
05141500 Tt 0004 
05142000 rt 0007 
05143000 T 0007 
05144000 fr 0008 
05144100 ft 0010 
05445000 FT 0014 
05146000 T O014 
05147000 - 0048 
cence ven OS L47400 FT. 


05148000 tT 0016 
17 LONGs NEXT SEG 


6 


AAT 


6 


148 


Lf an ee 


AO Oe eee Gute nee 


= 


PROCEDURE BLOCKDATAS 
BEGIN 


IF SPLINK NEQ 0 THEN BEGIN FLAGC5)3 ENDS$ SEGMENTSTARTS ENDS 


LABL * BLANKS$ 

SCANS 

SPLINK # @13 
END BLOCKDATAS 


PROCEDURE CALL3 


BEGIN 
EQOS*¢TRUE 3 
EXECUTABLE3 
SCANS 
SUBREF 3 

END CALL3 , 


PROCEDURE COMMONS 


COMMENT THIS PROCEDURE MAKES THE COM ENTRY FOR COMMON ITEMS AND SETS 
THE CE BIT IN BOTH THE COM ANO INFO TABLES AND LINKS 


THE HEADS OF CHAINS3 


BEGIN 
LABEL LOOPs BLOCK3 
TYPE «© *23 
SCANS 
IF NEXT = ID THEN 
BEGIN 
Z « NEEDC*.BLNKe™»s BLOCKID)3 
IF XREF THEN ENTERXC™BLANK es O0&8BLOCKIDETOCLASS) )3 
GO TO BLOCK3 
END3 
LOOP! 
IF NEXT # SLASH THEN FLOG(110)3 
SCAN3 ; 
IF NEXT = SLASH THEN Z ¢ NEEDC™sBLNKe™» BLOCKID) ELSE 
BEGIN 


IF NEXT # 10 THEN FLOGC105) ELSE 


2 FORCE UNIQUE NAME BY APPENDING 1 TO NAME (2ND CHAR OF WORD) 


BEGIN Z ¢ NEEDCNAMER"I"C6242t6]sBLOCKID)S 


IF XREF THEN ENTERXCNAMESOBBLOCKIDETOCLASSJ)3 = 


SCAN3 
END3 
IF NEXT # SLASH THEN FLOG(110)3 
a a 
SCAN3 
BLOCK? 
YF CT#GETCZ+2)).ADINFO = O THEN. 
BEGIN 
IF NEXTCOMeNEXTCOM41>SUPERMAXCOM THEN 
BEGIN ROOT+O} FATALC124) END 
ELSE ROOT*NEXTCOM 3 


05149000 
054150000 
05151000 
05151100 


05152000 


05153000 
05154000 


05155000 


05156000 


(05156010 


05157000 
05158000 
05159000 
05160000 


05161000 
05161100 
05161110 
05161120 
05162000 
05163000 


START OF SEGMENT 


05164000 
05165000 


~05166000° 


05167000 
05168000 
05168100 
05169000 
05170000 
05171000 
05172000 
05173000 


05174000 


05175000 
05176000 
05176500 
05177000 
05177100 


~—O5177200 


05178000 
05179000 


~ OS$T80000" 


05181000 
05182000 
05183000 
05184000 
05185000 
05166000 
05186100 


44 


Se | 


Se ee eee ee ee ee ee ee | 


a Ee Se | 


0556 
0556 
0556 
0560 
0560 
0564 
0562 


0562 
0562 
0562, 
0563 
0564 
0564 
0565 


0568 
0565 
0568 
— 0565 
0565 
0565 


ee eee 2 2 


0000 
0004 
0004. 
00092 
0002 
0004 
0007 
0010 
0010 
00140 
0012 
0043 
0018 
0017 
DOS 
0019 
0022 


a? Gee 


0025 
0025 


AOR RO 


0027 
0027 
0028 
0030 
0034 
0033 
0035 
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» 


1 
! 
| 
{ 
j 
i 


‘ 


3 


i 


PUTCCROOTs OSHEADERCTOCLASSISICTOCEI&ROOTLCTOADDRI)D 3 
BAPC(Z) 3 
END ELSE 
BEGIN te 
ROOT # T,ADINFOS 
COMECTeGETCCROOTIGLASTC) IR» TeICIeLINK@NEXTCOM41 3 
IF. COMCPWROOTI<O THEN FLAG(2) 3 
END; 
DIMENSIONS 
BAPCCOBENDCOMETOCLASS)) 3 
COMCPWROOTJ] «LASTC#NEXTCOM 3 
PUTCT#GETCCROOT+1 4+2,GETCT)&ROOTETOADINFO)) & 
IF NEXT # SEMI THEN GO TO LOOPS 
END COMMON3 


PROCEDURE ENDS3 


BEGIN 
1F SPLINKSO THEN FLAGC184) ELSE 
REGIN 
EQOS*FALSE 3 
IF LOGIFTOG THEN FLAGC101)5 
LABL « BLANKS} 
IF SPLINK < 0 THEN EMITOCXIT) ELSE EMITPAIRCOs KOM)3 
SEGMENTCCADR#+4) DIV 4s NSEGs TRUE» EDOC)S 
ene siatoreed 
END ENDS3 


PROCEDURE ENTRY3~ 
BEGIN 

REA ER a ccs wih teva andy sadleitertedlons 

IF SPLINK = 0 THEN FLAGC111) ELSE 

IF SPLINK = 1 THEN BEGIN ELX © O03 FLAGC4) ENDS 

LABL « BLANKS$3 

ADJUST 3 

SP ¢ GETCSPLINK)S 

FORMALPPC (T+SP.CLASS) 3 FUNID, TIF 

GETALLCFNEWs INFAs INFBs INFC)3 

IF INFAseCLASS = FUNID THEN 

PUTCFNEWs INFA &@ 1ICTOTYPF) &@ (SP,SUBCLASS)ETOSUBCLI)D3 

PUTCFNEW#2s INFC & CADR*1)CTOBASE) D3 

END ENTRYS 


PROCENURE EQUIVALENCES 


COMMENT 
THE €Q BIT IN BOTH THE COM AND INFO TABLES AND LINKS 


THIS PROCEQURE MAKES THE COM ENTRY FOR EQUIV ITEMS AND SETS 


- 95186200 
05187000 
05188000 

05189000 
05190000 
05191000 

_ 95191100 - 
05192000 
05193000 

05194000. 
05195000 
05196000 
05197000 


05198000 Tt 


149 18 66 LONG» 


05211000 
05212000 
05212005 
05212007 
05212010 
05213000 
* 05373100 
05214000 
05215000 
~O5216000" 
05217000 


08218000 T 
05219000 fT 


eee 


ee 
t a Ps 


NEXT SEG 


Osea 


0565 
0565 
0568 
0568 
0549 


OT 


0572 
0578 


03578 


a 0879 aeons 
0579 


05220000 t 0579 


START OF SEGMENT wenuttwwnen 


05221000 
05222000. 
05222100 
05222500 
05223000. 
65224000 
05225000 
05226000 
05227000 
05228000 
05229000 


150 18 


05230000 
05230100 7 
05230110 T 


oad sae a 


0000 
0002 .. 
0005 
0006 
0006 


0010 


Ty aa 


6 


or eae 


“OSTEO Tt ee 


GO es Pa 


eS ee ee ee ee ee 


0013 
0017 
0019 


22 LONGs NEXY SEG | 


0579 


agg ee ae 


0579 


6 


THE HEADS OF CHAINS3 08230120 Y 0579 
BEGIN 05231000 f 0579 
REAL Ps Qs Re S3 05232000 tT 0579 
START OF SEGMENT seeeewatee 151 
BOOLEAN FIRSTsPCOMM3 05232050 r 0000  — 
LABEL XIT3 05232100 Y 0000 
IF LOGIFTOG THEN FLAG(101)3 05233000 t 0000 
LABL « BLANKS} : O5233{00 fF O00S 
oye) 05234000 T 00092 
BEGIN i 05235000 tr 0003 
FIRST + FALSE _ , oo de ee ~ 05235500 F 0003 
SCANS 05236000 fT 0003 
IF NEXT # LPAREN THEN BEGIN FLOG(106)3 GO TO XIT ENDS 05237000 7 0004 
IF NEXTCOMENEXTCOM41>SUPERMAXCOM THEN 05238000 7 C006 => > 
BEGIN ROOT¢OS FATALC124) END 05238100 7 0008 
ELSE ROOT+NEXTCOM 3 05238200 T 0010 
PUTCCROOT*#O8HEADERCTOCLASSJ&ROOTCTOADOR)) 3 SS . “05238300 7 60144 
BAPC(O)3 Q¢0 3 05239000 fT 0014 
OO seen Akita eeeeese on bedeetuk et Gots 4s hyn eee ete 4 a ae _, 05240000 7 0016 | 
BEGIN 05241000 Tt 0017 
SCANS 05242000 T 0017 
IF NEXT # ID THEN BEGIN FLOGC105)3 GO TO XIT ENDS 05243000 r 0017 
IF XREF THEN ENTERXCNAMESO8GETCFNEXTIC159#15299)3 05243200 r 0020 
FX1 © FNEXT3 05244000 tT 0023 
LENGTH «* O3- a . . _ a _ . . 05243000 fT 0024 
SCANS 05246000 7 6024 
IF NEXT = LPAREN THEN 05247000 rt 0025 
RGN roc at Meets Lhd ENT slag acts oe : 05248000 T 0026 
IF GETCFX1)+«CLASS # ARRAYID THEN , —-— wes 98949000 tf O026 
BEGIN XTA © GETCFX141)3 FLOGC112) END; 05250000 y 0028 
Re OF Pe Ue ah. net 86 05251000 ry 0034 
S ¢ GETCFX14*2),ADINFOS 85252000 T 6032 
ole) 05253000 T 0035 
BEGIN, a a | | 05254000 t 0035 
SCAN} 05255000 r 0038 
IF NEXT # NUM OR NUMTYPE # INTYPE THEN FLAG(113)3 05256000 fT 0035 
LENGTH © LENGTH + PXCFNEXT#1)3 05257000 Tt 0038 
P ¢ PxEXTRAINFOLC(CS+#R)eTRe(S#R),IC) 3 0 "65358000 F 0040 
R « R=43 05259000 fT 0045 
_ , SCANS. Sty HEL Sen ands Belrwcak Aba” hs Serles nico cored teeciaet wat den eects » OS2OO000 T, OOK 
END UNTIL NEXT # COMMA; 05261000 tr 0046 
IF NEXY # RPAREN THEN BEGIN FLOGC(108)3 GO TO XIT END3 05262000 7 O04 
IF Ré#4 THEN IF ReR+GETCFX142),NEXTRAZO THEN 05262200 7 0080 
BEGIN XTASGETCFXi4+1)3 FLAGCIF R>O THEN 23 ELSE 24) END 3 = 05262300 7 
SCANS 05263000 T 0060 
NOS oe eer een a eRe OF eee lee ade, , Cosi fes Beebe aR plat dees antes aay te con taba ty anes eae neatun aati Sages et UNM OM Fan OOO, nd Ss 
IF CINFA*GETCFX1)) < 0 THEN 05265000 T 06060 
BEGIN XTA © GETCFX141)3 FLAGC39) END ELSE . 05266000 7 0062 
BEGYN. 05267000 tT 0065 
IF INFAeSUBCLASS > “COT YPE™ THEN LENGTH © 2xLENGTH 2 = ~~" ""08367{00 + 0066  ~ 
BAPCCINFASFXICTOLINKISLENGTHE TORELADDIGICTOEQI&ROOTETOLASTCI)3 05268000 fr 0069 
IF CPCOMMe¢BOOLEANCINFA.CE)) OR BOOLEANCINFASEQ) THEN 04269000 T 0073 
BEGIN pe "05270000 F 0076 
IF FIRST ANO PCOMM THEN BEGIN xTAeGETCFX144)3 FLAGC2) END 05270100 7 0076 
ELSE IF NOT FIRST THEN FIRST + PCOMM) 05270200 r 0080 
PUTCFX19INFA & 10TOFQ) 93 an 05270500 7 0082 
COMENEXTCOMeIReNEXTCOMeICIeLASTC © A © INFAeADDRI 05271000 7 0084 


! 
H 
1 
1 


BEGIN 


BeGETCCROOT).ADOR 3 
SETLINKCA) 4 
IF NOT RINGCHECK THEN 
BEGIN 
COMCPWROOTIJ eADDREGETCCA),ADDOR 3 
PUTCCAsGETCCA&BETOADDRIS7CTOSUBCLI) 3 
END 
END ELSE 
PUTCFXLsINFA & 1CTOEQ]) & ROOTCTOADDRI)3 
IF LENGTH > @ THEN Q © LENGTHS ~ 
IF BOOLEANCINFA.FORMAL) THEN 
BEGIN XTA © GETCFX141)3 FLAGCI1) ENDS 
END3 
ENO UNTIL NEXT # COMMA} 


IF NEXT # RPAREN THEN BEGIN FLOG(108)3 GO TO XIT ENDS 


SCAN3 
PUTCCROOT+19qQ) 3 
BAPCCORENDCOMCTOCLASS)) 3 
COMCPWROOTIJ«LASTCeNEXTCOM $ 
ENO UNTIL NEXT 4 COMMA; 
XIT: 
END EQUTVALENCES 


PROCEDURE EXTERNALS 


BEGIN 
IF SPLINK < O THEN FLAGC 12)3 
IF LOGIFTOG THEN FLAGC101)3— 
LABL « BLANKS} 
oo 
BEGIN — 


SCANS 

IF NExT # ID THEN FLOGC105) ELSE 

BEGIN T * NEEDCNAMESEXTID)$ 
fF KREF THEN ENTERX CNAME, ORGETCT)C15215391)3 — 
SCAN} 

ENDS _ 


END UNTIL NEXT # COMMAS 
END EXTFRNALS 


PROCEDURE CHAINS 


LABFL AGNs XIT3 

REAL . T13. 
DEFINE 
EXECUTABLE3 

SCANS 
Tl «© 23 
IF FALSE THEN 


151 1S 


FLGCFLG1) =» BEGIN FLOG(FLG1)3 GO TO XIT END#S 


. 05272000 r 0089 
05272050 Tf 00914 
05272100 tT 0092 
05272200 T 0093 
05273000 7r 0093 
05274000 Tf 0094 

_ 05274200 T 0102 
05275000 7 0102 
05276000 T 0102 
05277000 t 0105 
05278000 ft 6107 
05279000 Tt 06108 

05280000 rt O1t1 
05281000 rt 0111 
05282000 Tr O112 
05283000 7 0115 
05284000 rt O115 
05285000 T O11? 

05286000 fF O119 
05287000 Tr 0123 
05287100 T 0124 
05288000 Ty 0125 ~~ 

129 LONGs NEXT SEG 

05289000 fT 0S79 
08290000 7 O579 — 
05291000 7 0579 

05292000 7 0581 
098292100 tT 0583 
05293000 7 0583 

_ 05294000 T 0584 — 
08295000 T 0884 
05296000 rT 0884 
08297000 T 0586. 

"08297300 T 05648. 
05297500 7 0594 

05297800 T 0592 
05298000 ~ 0592 
08299000 ft 0892 
05300000 7 0593 
08300300 tT 0593 
95300350 7 0593 
05300160 7 0593 

START OF SEGMENT weatekninn 

95300170 TF . 
08300160 fr 0000 
05300182 fF 90000 

95300184 TF 0000. 
05300190 7 0004 
05300210 Ff 0004 


6 


152 
9000... 


i 


i 
! 
| 
{ 


i 


i | 
i ' 
\ 


if 


eet GLOBALNEXT # COMMA THEN FLGC28)3 
NE 
IF eXPRCTRUE) > REALTYPE THEN FLG(102)3 
IF ¢Ti ¢ Tt = 1) # O THEN GO TO AGN3 
IF GLOBALNEXT # RPAREN THEN FLGC3)3 
EMITPAIR (372KOM)3 
SCAN3 . 
IF GLOBALNEXT # SEMI THEN FLOGC117)3 
XIT8 WHILE GLOBALNEXT # SEM? DO SCAN3 
END CHAINS 


PROCEDURE GQOTOS3 
BEGIN LABEL XIT3 


REAL ASSIGNEDID3 
EQDS*TRUE 3 
EXECUTABLES 
SCAN} 
IF NEXT = NUM THEN 
BEGIN 
LABELRRANCHCNAME, FALSE)3 
SCAN$ 
GO TO XITs 
END3 . =9 
IF NEXT = ID THEN 
BEGYN 
ASSIGNEDID © FNEXT} 
IF XREF THEN ENTERXCXTAr ORGETCENEXTICI581519993— 
SCAN3 
IF NEXT # COMMA THEN FLOG(114)3 
SCAN3 
IF NEXT # LPAREN THEN FLOG(106)3 
dO. 
BEGIN 
SCANS 
IF NEXT # NUM THEN FLOGC109)3 © 
EMITVCASSIGNEOID)3 
EMT TNUMCFNEXT )3 
. EMITOCNEQL D3 Po es 
LABELBRANCHCNAMEs TRUE)3 
SCAN3 
END UNTIL NEXT 4 COMMAS 
IF NEXT # RPAREN THEN FLOGC(108)3 0° 
SCANS 
EMITPAIR( 1s SSN)3 


EMITDESCLITC1093 
GO TO XIT3 
ENDS 


152 18 


05300220 


05300230 


05300240 
05300250 
05300260 
05300270 
05300280 
05300290 
05300300 
05300310 


23 LONG», NEXT SEG 


05301000 
05302000 


START OF SEGMENT 


05315000 


05317000 T 


R CAUSE INVALID INDEX TERMINATION 


th WENT © CPAREN TREN RLCRCL ORR ee 


P «+ O03 

00 
BEGYN 

SCAN3 


05302100 
05302110 
05303000 
05304000 
05305000 
05306000 
05307000 
05308000 
05309000 
05310000 


05311000 


05312000 
05313000 


05313200 


05313300 
05313600 


08314000 


05314300 
05314600 


05315300 
05315600 
05316000 
05316300 
05316600 


05317300 
05317600 


“O8S318000 + 


03318200 
05318400 
05318600 
05319000 
05320000 


“O8301000° 


03922000 
03323000 
05324000 
05325000 


T 
Af 


ie ee a 


0002 
000s 
0006 
0009 
oO11 
0013 
0014 


— 0015 


0017 
0020 


0593 
0593 


eeevettatee 


T 
T 


pe ae eae eee 


Be sees oa a 


a 


aA+s4j4 


0000 
0000 
0000 
0004 
0004 
0002 
0003 


(0004 


0004 
0005 


0005 


0005 
0006 


0007 


0010 
0010 


re 


6 


153 


i 


| 
i 


| 
/ 
! 
| 
1 


| 
i 
i 


| 
H 


t 


2S 
a 


—— 
, 
t 


END 


IF aD 


BEGYN 


END} 
XITs 


END GOTNS 


PROCEOURE 
BEGIN 


BEGIN 


ENO E 


i 1 ‘ 


“IF TYPE = LOGTYPE THEN 
EMITB¢eis TRUE 


~ FIXBCLOGIFADR)3 © 


IF NEXT # NUM Ate BEGIN FLOG¢109)3 GO TO xIT ENDS 
LSTTCPeP4+1) © NAM 

SCAN} 

UNTIL NEXT 4 COMMA; 

IF NExT # RPAREN THEN BEGIN FLOGC108)3 GO TO xXIT END3 
SCANS 

IF NEXT # COMMA THEN BEGIN FLOGC41493) G0 TO XIT ENDS” 
SCAN3 

IT © Pel3 % DONT LET EXPR WIPE OUT LSTT 

IF EXPRCTRUE) > REALTYPE THEN FLOG(102)3 
EMITPAIRCJUNKs ISN)3) 9 ~ 
EMITPAIRC1sLESS)3 

EMITOPOCLITCJUNK)3 — 

EMITPAIRCPsGRTR)3 

EMITOCLOR)3 


EMTTOPDCL LTC JUNK DS. 


EMITL¢3) - 
Seta Uc ss 


R+3xP > 4085 THEN BEGIN ADR*ADR4¥13 SEGOVF END3 
EMITOCBFC)3 

EMITPAIR(1» SSN)3 

EMITDESCLITC10)3 

FOR I « 1 STEP 1 UNTIL P DO 


J ¢ ADR$ LABELBRANCHCLSTTCIJs FALSE)3 
IF ADR#J = 2 THEN EMITOCNOP)3 


Iv ¢ 03 
3 


IFS3 


EQOS+TRUE 5 
EXECUTABLE3 
SCAN} 


IF NEXT #_LPAREN THEN FLOGCL06 98 ce natn nen ie 


SCAN3 
IF TYPE ¢ EXPRCTRUE) = COMPTYPE THEN FLAG(89)3 
IF NEXT # RPAREN THEN FLOG(108)3 — 


LOGIFADR «+ LAX? 
LOGIFTOG « TRUES EOSTOG + TRUES 
SAVELABL * LABLS LABL + BLANKS; 


STATEMENTS | 
LABL « SAVELABL3 
LOGIFTOG © FALSE EOSTOG + FALSES 


LSE 


Cre a 


95326000 
05327000 
05328000 
05329000 
08330000 
05331000 
05332000 
~“O5 333000 
05334000 
05335000 
“05336000 — 
05337000 
05338000 | 
05339000 
05340000 
05341000. 
05342000 
05343000 
05344000. 
05345000 
05346000 
05347000 
05348000 
05349000 
(05349400 
05349200 
05349300 
05349400 
05350000 
05351000 
05352000 


ei gyal ala es ae g a a s peh 


0034 
0034 


0036 
0036 


~O03a 


0049 
004, 


(0043 


0044 
0045 


aT ace 


0044 
0049 


90507 


0054 


0052 


0053 
0053 


0054 


0054 
0056 
0059 


- 0060 


00614 
0063 


00630 


0068 
0067 


peg a 


0070 
0070 


7s LONGS NEXT Sea oe 


111) ¢ eae eee 


| iii 


05353000 r 0593 
05354000 r 0593 > 
START OF SEGMENT weuwttweee 
95354010 T.. 
05355000 fr 0000 
05356000 rf 0004 
05357000 T 000; 
05388000 ~ 0003 
05359000 fT 0004 
05360000 7 0007 
“05361000 + 0009 
0§362000 7 0010 
__..95363000 7 0010 
05364000 T O01;4 
05365000 T 0012 
05365100 T 0015 
05366000 +r 00146 
05366100 rt OO17 
05367000 r O17 
05368000 F 
05369000 fT 0024 


ee pepe eee ee At ope pene 


| 
i 
i 
| 
if 
{ 
i 


BEGIN 


oS 


BEGIN 


END E 


BEGIN 


END E 


BEGIN 


END E 
BEGIN 


END} | 
END; 
END IFS; 


PROCEDURE 


t 1 
i 3 


IF TYPE = DOUBTYPE THEN 

BEGIN EMITOCXCH)$ EMITOCOEL) ENDS 
SCANS yee 

IF NEXT # NUM THEN FLOG(109)3 
Fx1 © FNEXTS NX1 © NAMES 

DOAN Ge ete utet atieths cat MA Bae cam 
IF NEXT # COMMA THEN FLOG(114)3 
SCANS 

IF NEXT # NUM THEN FLOGC109)3 
FX2 © FNEXTS NX2 © NAMES 

SCAN3 

IF NEXT # COMMA THEN FLOG(114)3 
SCAN3 

IF NEXT # NUM THEN FLOG(109)3 
FX3 © FNEXTS NX3 © NAMES 

SCAN3 

IF FX2 = FX3 THEN 


EMITPAIRCOsGEQL) 3 

LABELBRANCH(ONX1s TRUE)S 

LABELBRANCHCNX3s FALSE )3 
IF XREF THEN ENTERXCNX2s OSLABELIDETOCLASSID3 
LSE 

IF FX4 = FX3 THEN _ 


EMITPAIRCO*NEQL)3 

LABELBRANCH(ONX2s TRUE)S- 

LARBELBRANCHCNX2» FALSE)3 

IF XREF THEN ENTERXCNX30 O8LABELIDETOCLASS1)3 
>] A ae eee ae 

IF FX4 = FX2 THEN 


EMITPAIR(OsLEQL)3 

LABELBRANCHUNX3» TRUE) 

LABELBRANCHCONX1» FALSE)3 

IF XREF THEN ENTERX(NX2*O08LABELIDETOCLASS))3 
LSE 


EMITOCDUP I} 
EMITPAIR(OsNEQL)3 
EMITBC*1» TRUEDS 
EMITPAIRCOsLESS)$ 
LABELBRANCH(NX3» TRUE)3 
LABELBRANCHCNX1» FALSE)3 
FIXBCLAX)3 

EMITOCDEL)3 
LABELBRANCHCNX2» FALSE)3 


NAMEL3 


05370000 T 


05371000 T 


05372000 T 
05373000 T 


05374000 + 


05375000 fT 
05376000 T 


~ 05377000 T 


05378000 T 
05379000 T 


05380000 7. 


05381000 fT 
05382000 T 


05383000 F 


05384000 T 
05385000 fT 


05386000 T 


05389000 T 


05387000 T 
05388000 T 


05390000 fT 
05391000 T 


— 05391200 TF 


05397000 T 


~ 05402000 T 


05392000 T 
05393000 T 
05394000 Tf 
05395000 T 
05396000 T 


05397200 fT 
05398000 T 


05399000 7 


05400000 T 
05401000 T 


03403000 T 
05403200 1 


05404000 T 


05405000 T 


“05406000 T 


~ 05407000 FT 


05410000 TF 


05408000 T 
05409000 T 


05411000 T 
05412000 T 


— 05413000 7 


05414000 fT 
05413000 T 


“05416000 T 


234 18) 


05417000 T 


05430000 T 


0024 


002; 


0022 
0024 
0024 
0026 
00248 


(0028 


0030 
0034 


0033— 


0034 
0035 


0037 


0037 
0039 
0044 
0044 
0042 


‘ee 


0044 
0048 


0046 


0048 
0048 
0050 
0050 
0054 


0053 
0056 
0056 
0087 
0058 
0059 
0060 
0064 


0063 


0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 


O07 


0074 
0072 


0072 


75 LONGs NEXT SEG 


0593 


GON oe emanates 


; t 7 i 


q 


t : : ‘ 
4 


BEGIN LABEL NIMseXITeELMNTsWRAP3 


IF SPLINK < 0 THEN FLAG(12)3 
IF LOGIFTOG THEN FLAGC101)3. 


LABL « BLANKS3 
IF NEXT # SLASH THEN FLOG(11093 


SCAN} 
NIMS SCANS. 


IF NEXT # ID THEN BEGIN FLOGC105)3_ 


_GO TO XIT ENDS. 


Ir J ¢ CINFA * GETCLADR2 © FNEXT))«CLASS = UNKNOWN THEN 
PUTCLADR2sINFASNAMELISTCTOCLASS)) 

ELSE IF J # NAMELIST THEN | 
BFGIN XTA ¢ GETCLADR2 + 1)3 


BND A cidite 2. eels Sceet @ Sse tigi. t Me wide Cea id 
LSTTECLSTS + LADRi «+ 0) «& NAMES 


FLAGC20)3 


le XREF THEN ENTERXCNAMEsO&NAMELISTCTOCLASS))3 
IF NEXT # SLASH THEN FLOG(6410)3 
ELMNT! SCANS IF NEXT # ID THEN BEGIN FLOG(105)3 GO TO XIT END3 


SCAN} 
LADR1 


¢ LADRI + 13 


START OF SEGMENT weattiaane 


. 05433000 7 0 


Ie (T © GETCFNEW © GETSPACECFNEXT) )eCLASS) > VARID THEN FLAGC48)S 
GETALLCFNEWs INF As INE Bs INFC)3 mat 
lp XREF THEN ENTERXCINFBsO8INFALI5315899)3 
Ir LSTS « LSTS+#1 = eae THEN BEGIN FLOG(78)3 GO TO XIT END ELSE 


IF Ts ARRAYID THEN 
BEGIN J «© INFCeADINFO3. 


IF BOOLEANCINFA.CE) THEN LSTTCLSTSI¢LSTTCLSTSI&INFC BASEL16333815) 
RINFCsSIZEC33333115) ENDS 


SCANS 


PRTSAVER(LADR2sLSTS + 2eLSTT)3 


I « INFCeNEXTRAS 


IF LSTS + I + 4 > LSTMAX THEN 


BEGIN FLOGC78)3 


GO TO xIT END 


LSTTCLSTS ¢ LSTS + 1) © O€F2194296] & # DIMENSION 


ges 
SINFA, ADORE 7237211] % REL ADR 


RINFC,BASE(16233%15] % BASE 


RINFC SIZEC3SN3SI1593 8 


FOR T + J STEP «1 UNTIL J = 1 # 1 DO 
LSTTCLSTS ¢ LSTS + 1) © EXTRAINFOCTeIRsTeIC]S 
END ELSE BEGIN LSTTELSTS#LSTS41 JeORCINFA,ADDRIC733781193 


If NEXT = COMMA THEN GO TO ELMNT3 

Ir NEXT # SEMI ANO NEXT # SLASH THEN FLOG(115)3 
LSTTCLSTS + 1) © OF 
LSTT£LO1.02%10) «+ LADR4Y 


IF NEXT # SEMI THEN GO TO NIMS — 


XITs 
END NAMEL3 


PROCEDURE PAUSES; 


IF DCINPUT THEN BEGIN XTAe"PAUSE "3 


BEGIN 


EODS*TRUE 3 
IF TSSEDITOG THEN TSSEDC(™PAUSE "s2) 3 
EXECUTABLES 
SCANS 


FLOGC151) END ELSE 


“StzE 


05447000 7 0037. 


05431000 T 
05432000 T 


05433100 T 
05434000 T 
05435000 7. 
05436000 Tf 
05437000 T 
05438000 T 


05440000 f 
05441000 fT 


(05442000 T 


05442500 T 
05443000 T 
05444000 T 
05445000 7 
05446000 T 


05447500 7 
05448000 T 


0593 


05439000 T 001g — 


05448500 Tt 00% 


05449000 T 


. 05450000 TF 
05451000 1 


05461000 T O 


~A55 1S. 


05451100 T 
05451200 T 


05452000 F 0 


05453000 T 
05454000 T 


05455000 7 ¢ 


05456000 f 
05457000 T 
05458000 T 
05458400 T 
05458600 7 
“65459000 fT 
05460000 7 


05462000 7 
05463000 7 
05464000 7 


~~ 05465000 T 


05466000 T 


96 LONG» NEXT SEG 


05467000 T 


05467100 T 


~ 05468000 - 
05468010 
05468100 


05469000. 
05470000 


sagan, 


5004 


0098 


pe cioree 


5 oe ee ee 


i { 1 j 1 
! i 
! i | | 
! i 
| iz 
i 
} 
| 
t 
i 


! 
1 
} 
1 
' 


7 --0627> > swadecetiali 1 Pa gel tainted dette tin + isan 


IF NEXT = SEMI THEN EMITLCO) ELSE 05471000 T 0603 
IF NEXT = NUM THEN 05472000 T 0605 
BEGIN 05473000 tT 0607 
EMT TNUMCNAME )3 05474000 T 0608 
SCAN3 05475000 t 0609 
ENDS 05476000 T 0609 
EMITPAIRC33% KOM)3 (05477000 T 0609 
EMITOCDEL)3 05477100 Tt 0610 
END PAUSES 05478000 T 0614 
PROCEDURE TYPITCTYPs»TMPNXT)$ VALUE TYP3 REAL TYPsTMPNXT 3 05479000 7 O6f4 
BEGYN 05480000 y 0614 
TYPreTYP3 SCAN 3 . . Oo 05480010 T 0614 
IF NEXT#16 THEN BEGIN TMPNXT©163 FUNCTION END ELSE DIMENSION 3 05480020 7t 0613 
END OF TYPIT 3 05480040 T 0617 
DEFINE cOMPLEX . @TYPITCCOMPTYPEsTEMPNEXT) #» 05481000 7 0617 
LOGICAL eTYPITCLOGTYPE »TEMPNEXT) #2 05482000 T 0617 
MOUBLEPRECISION —=TYPITCDOUBTYPEsTEMPNEXT) #2 05483000 T 0647 
TNTEGERS =TYPITCINTYPE »TEMPNEXT) #2 9 “05484000 tT 0617 
REALS sTYPITCREALTYPEsTEMPNEXT) #3 05484500 fT 0617 
PROCEDURE STOPS 05485000 tT 0617 
BEGIN ~ 05466000 Tt 
RETURNFOUND «© TRUE} 05486100 Tf O67 
-EQDS*TRUE 3 05486110 T 0619 
EXECUTABLE3 ae "05487000 FT 0620 
COMMENT INITIAL SCAN ALREADY DONE3 05488000 tT 0621 
Free al), 8 HS oe 90 2 ene ee 05489000 7 0624 
EMITPAIRC16s STD)3 ~~ "95490000 + 062, — 
EMITPAIRC10» KOM)3 05491000 + 0622 
EMITPAIR(S»s KOM)$ 2 2 “ _ 05492000 Tt 0623 
WHILE NEXT #4 SEMI DO SCAN} 05493000 T 
END STOP3 05494000 T 0627 
- PROCEDURE: RETURNE oo eee ree re 
BEGIN LaBEL EXIT 05496000 fT 0627 
START OF SEGMENT 
REAL To XITCODES © | ee eee ""OSAITOOO FF D006 
RETURNFOUND ¢ TRUE3 05497100 fT 0000 
EODS*¢TRUE 3 05497110 TT O004 
BB OU BBE Tc mm  “98q98000- T0003 
05498100 fr 0003 
eat ae . 05498200 YT 0003 
SCANS = = —r—— ~"05499000 T 6003 
IF SPLINK#®0 OR SPLINK#14 THEN 05499100 fT 0003 
— BEGIN XTA"RETURN"S FLOG(153)3 GO EXIT END J 05499110 fT 0005 
IF NEXT = SEM] THEN . ee 05500000 tT 0009 
BEGIN 05801000 fT 0009 


Rep ee 


e @ 


| 
i 
i 
I 


% VOIO 


IF (T « GETCSPLINK)).CLASS = FUNID THEN 
BEGIN 
EMITVCFUNVAR)3 
IF TeSUBCLASS > LOGTYPE THEN EMITPAIRCJUNKs STD)3_ 
XITCODE « RTN3 
END ELSE XITCODE & XIT3 
IF ADR 2 4077 THEN 
BEGIN AOR ¢ ADR+13 SEGOVF END3 
EMI TOPOCLIT(1538)3 % F+2 
EMITPAIRC3» BFC)3 
EMYTPAIR(10» KOM)3 
EMITOCXITCODE)3 
EMI TOPOCLIT(16)3 
EMITPAIR¢1» SUB)3 
EMITPAIR(16» STD)3 
EMYTOCXITCODE)3 
GO TO EXIT; 
END} 
IF LABELMOM = O THEN FLOG(145)3 
IF EXPRCTRUE) > REALTYPE THEN FLAGC102)3 
IF EXPRESULT = NUMCLASS THEN 
BEGIN IF XREF THEN ENTERXCEXPVALUE»s OSLABELIOCTOCLASS))3 
ADR © ADR@*43EMITLCEXPVALUE@1 ) 
END ELSE 
EMITPAIRC1» SUB)3 
EMI TOPDCLITCLABELMOM)3 
EMITOCMKS)3_ 
EMITLO9)3 
EMITOPDCLIT(S)3 


EXIT? 


ENO RETURNS 


136.18 


PROCEOURE IMPLICIT 3 


Rs 


THEN BEGIN FLOG(181)3 FILETOGeTRUES GO X END 3 


—SCNe2S 


BEGIN Re eps fae iad aa eae. lig phe fOr cae “SF 
REAL RisR2eR3eR4 3 


START OF SEGMENT weetttanee 
oo 9000... 


LABEL ReAsXol 3 


IF NOTCLASTNEXT242 OR LASTNEXT#1000 OR LASTNEXT#30. ee eT ag ae ees 


OR LASTNEXT#=16 OR LASTNEXT = 11) 
EQSTOGeERRORTOG*TRUES FILETOG+FALSE 3” pie Gai 
MOVEWCACCUME 3} sACCUME2 J5053)% SCANS ERRORTOGSFALSES FILETOG*TRUE 3 


CIF R3e10 THEN DOUBTYPE ELSE IF R3"19 THEN LOGTYPE ELSE IF R3=_ 
6 THEN COMPTYPE ELSE O)ETOSUBCL1#0 THEN 
cog e ve BEGIN FLOGO168293 GO X END $n 
SCAN 3 

IF NEXTwSTAR THEN IF R3*%10 THEN 

BEGIN SCAN 3 _ 

IF NEXTSNUM ANO NUMTYPE*®INTYPE THEN 

BEGIN 


IF RielFf R3eNEXT#18 THEN INTID ELSE IF R3"26 THEN REALID ELSE 08 


93888888 
05504000 
05505000 
05506000 
05507000 
05808000 


05509000 


05510000 
05511000 


— 05812000 


05513000 
05514000 


05515000 


05516000 
05517000 
055168000 
05519000 


05520000. 


05520100 
05521000 
05521100 
05521200 
05521400 
05524600 


- 05522000 


05523000 
05524000 
05525000 
05526000 


05827000 
~ 05528000 


05529000 


05529100 


05829105, 


05529110 


95829320 


05529130 
05529131 
05529140 


~ 05829210 


05529215 
05829220 


05529230 
05529240 


0 
of8 
0012 
0013 
0013 
0016 
0017 
0018 
0019 
00214 


0023 
0024 


0028 
0026 
0027 
0028 


0034 
0033 
0035 
0036 
0039 
O04, 
0042 
0043 
0044 


0045 
0046 


PES ATi Ira: I PUR sg Be RAE 


“5 0046 


T 0047 


30 LONG» NEXT SEG 


tT 0627 


T 0627. 


‘7 0627_ 


P 0000 
¢ 0002 
T 0004 


T 0010 


0022 — 


“agam 


0031. | 


0045 


eee 


F007 


2 COT ats ite ts cepa ath 


T OOt@8 


7 0022 


05529250 7 0026 


05529260 
05329270 


05529280 F 0034. 


05529290 
05529300 


7 0028 
T 0029 


T 0032 
T 0034 


{ 
1 
| 
| 
| 


- 


Lt 


At 


Xt 


IF FNEXT4 THEN BEGIN IF R36 THEN FLAGC176)3 GOL END 3 


IF FNEXT28 THEN 
BEGIN 
IF R3926 THEN RieO&DQUBTYPECTOSUBCLI 
ELSE IF R346 THEN FLAGC177) 3 
GOL 3 
END # 
END 3 
FLAGCIF R326 THEN 178 ELSE 177"REALCR386)) 3 
NCREREALCNCR, £3083) £0 )+3"677777"4NCRI  SCNOLS 
END 3 
IF NEXT#LPAREN THEN BEGIN FLOGC106)3 GO X END 3 
SCANS R4*ERRORCT 3 
IF R2eNAME,C12°6)<17 OR (€R2>25 AND R233) OR (R2>41 AND R2<50) 
NR R2>57 OR NAME,C18:30)%" * THEN FLAGC(L179) 3 
SCAN 3 ae 
IF NEXT#MINUS THEN 
BEGIN IF ERRORCT#R4 THEN TIPECIF R2Z"0" THEN R2 ELSE 127¢R1 END 
ELSF BEGIN 
SCAN 3} 
IF R3*#NAME261286}1<47 GR (R3>25 AND R3<33) OR CR3>41 AND R3<50) 
OR R3>57 OR NAME.(C18%3072" " THEN FLAGC179) 3 
IF R3 LEG R2 THEN FLAG(180) 3 
IF ERRORCT#R4 THEN FOR RoeR2 STEP 1 UNTIL R3 DO 
BEGIN 
IF R2>25 AND R2<33 THEN R233 ELSE IF R2>44 AND R2<50 
THEN R2¢50 3 
TIPECIF R2#"0" THEN R2 ELSE 12)¢R1 ¢ 
END 3 
SCAN 3 
END 3 
IF NEXT=COMMA THEN GO A 3 
IF NEXT#RPAREN THEN BEGIN FLOG(108)% GO X END 3 
SCANS IF NEXT#COMMA THEN GO R$ 
IF NEXT#SEMI THEN BEGIN FLOGC6117)3 GO x END 3 
IF SPLINK>1 THEN 
BEGIN 


SCAN 3 


IF BOOLEANCTYPEsC2!1)) THEN IF GETCSPLINK).«CLASS@FUNID THEN = 7° 7 


BEGIN 
_INFOCSPLINK,IR»SPLINK»IC],SUBCLASS#R3¢TIPECIF R3eGETC | 
SPLINK#1).01226)/"0" THEN R3 ELSE 12],SUBCLASS 3 
NEO EUNVARS eIRsFUNVAR.ICI.SUBCLASS@RS 3 
EN 
IF RIeGETCSPLINK#2)<0 THEN 
FOR R2*R1eNEXTRA@L#RIERI,ADINFO STEP =1 UNTIL Rit DO 
IF R3*PARMLINK(CR2"R1i¢1)40 THEN 
BEGIN 
EXTRAINFOCR2cIRoR2cICI ,SUBCLASS¢RG*TIPECIF R4e 
GETCR344)¢ ri2t6ismom THEN RS ELSE 12) 
eSUBCLASS 3 
INFOCR3eIRsR3eIC)eSUBCLASSeRG 3 
END 3° 


END 3 
WHILE NEXT#SEMI DO SCANS FILETOGeFALSE 3 
EN® OF IMPLICIT 3 


05529310 7 0038 


055293920 + 0038 


05529330 rt 0039 
05529340 7 0040 
05529350 fT Od04a 
05529360 TF 0048 
05529370 Tt 0046 


05539380 T O0he OO 


05529390 rf 0046 
05529400 7 0049 


05529420 7 0054 
05829430 7 0058 


- 055990a0-7- 0089" 


05529450 7 0064 
05529460 T 0068 


05529470 ¢ 0069 — 


05529475 rt 0070 
05529480 Tt 0074 


05529490 7 O077 | 


05529500 rt 0077 
05529510 7 0082 
05529520 tT 0087 
05529530 Tr 0089 
05529540 Tt 0092 


05529550 7 0092 


05529560 ~ 0096 
05529570 ry 0098 


05529590 rT 0104 
05529600 r 0104 


— 06829610 y «(OL04 


05829620 Y 0105 
05529630 T 0108 


05529640 fT O112 
05529650 fT 0113 


05529670 T O116 
05329680 T O11? 


“085294690 “- O120- gts oS ihe Sen ede te tects, 


05829700 Tt 0126 
05529710 ry 0131 


05529720 7 O13, 


05529730 y 0133 
05529740 T 0140 


05329760 r 0143 
05529770 rT 0145 


05529790 ry 0152 
05529800 tT 0156 


05829810 ¥ 0157 


05329820 7 0157 
05329630 yr 0164 


“164° CONG, NEXT SEG 


OU5529580 ¢ O10q 


08539635 T Olio 


05529010 7 00SG 


U5829800 7 OLLS me 


<OERSEYSO 7 Olbo 


—O8830780 F “OLSQ 7 


H 
‘ : 1 1 1 : ! : : i 
i : i H : : : ; : : i ; 3 : H 


5 


PROCEDURE SUBROUTINES 05530000 T 0627 
BEGIN a ; ee ; tad VE ae _.... 05531000 Tt 0627 
IF SPLINK NEQ 0 THEN BEGIN FLAG(593 ENDSS SEGMENTSTART? END3 05532000 Pp 0627 
LABL « BLANKS3 05532100 YT 06334 
FORMALPPCFALSEs SUBRID)3. tee i sae Sale led abutter aka” Raarteirles tuo takers inc SSSIIO00 F , .0634 
SPLINK ¢ FNEW3 05534000 7 0632 
END SUBROUTINES 05535000 T 0633 
PROCEDURE MEMHANDLER(N)S VALUE N$ REAL N 3B UU Oy oh Stay te ~ oe" U55TS0L0 fT 0637 
BEGIN 05835020 7 0633 
REAL A } : ; -_ 05535030 7 0633 
START OF SEGMENT weeentenes 
LABFL LislLaelL3exIT 3 05535040 Tt 0000 
IF MEBUGTOG THEN FLAGROUTINEC* MEMHA"s"NOLER “» TRUE) 3 a -o.... . . 95535045. 7 0000 
IF nw LEQ 2 THEN 05535050 T 0002 
BEGIN % FIXED21» VARYING=2, - - 05535060 y 0002 
NeTF Nal THEN 6 ELSE O 3 Sac pe Rane ee ee - . . 05535070 T 0003 
Li: SCAN } 05535080 rT 0006 
IF NEXT4IO THEN BEGIN FLOG(105)3 GO XIT END 3 05535090 ~ 0006 
IF CA#GETCGETSPACECFNEXT)))eCLASS#ZARRAYID THEN | ow 8898100 FT «OO 
BEGIN FLOGC35)3 GO XIT END 3 05535110 tT OOL3 
IF XREF THEN ENTERXCXTAS08A01521589]) 3 05535120 T 0015 
IF BONLEANCA.EQ) OR BOOLEANCA.FORMAL) THEN FLAG(169) a 05535130 ft 0018 
ELSE BEGIN _— 7 65535140 7 00206 
EMITOCMKS)3 EMITPAIRCA,ADDR,LODIS EMITLOND 3 05535150 tT 0024 
EMITVCNEEDC’* MEMMR™SINTRFUNIOD) Fo 95335160 7 0024 
END 3 05535170 tr 0026 
SCAN3 IF NEXT®COMMA THEN GO L1 3 05535180 Tt 0026 
END . Bcf Stat * a b.. © 05535190 T 0028 
ELSe IF N*3 THEN 05535200 T 0028 
BEGIN % AUXMEMED FUNCTION OR SUBROUTINEs 05535210 T 0030 
SCAN 3 05535220 fT 00314 
YF NEXT#ID THEN BEGIN FLOGC1O5)3 GO xXIT END FO 00 0 "65535225 F “O03, 
IF GETCFNEXT4194GETCSPLINK#1) THEN 05535230 tT 0034 
_ BEGIN FLOGC170)3 GO xIT END SL | 95535235 7 0037 
PUTCSPLINK#GETCSPLINK)&1¢TOADJI) 3 05535240 tT 0038 
IF XRER THEN ENTERXCXTASORGETCFNEXTI£C15%1529))3 SCAN 3 05535250 7 0044 
END 05535420 tr 0045 
FLSe nestn x RELEASE, 34 S82 geet aie: et REO Ree ESG 4 QUA 
Lat SCAN 3 05535440 ft 0045 
IF NEXT#ID THEN BEGIN FLOGC105)3 GO XIT END $ 8 5598450 T 00K 
IF CACGET(GETSPACE CFNEXT)) De CLASS@ARRAYID THEN 05535460 + 0049 
BEGIN 05535470 rT 0054 
IF BOOLEANCAsEQ) OR BOOLEANCAsFORMAL) THEN FLAGC169) = = 055395480 7 0052 
ELSE BEGIN 05535490 7 0054 
EMITOCMKS)3 EMITPAIRCA,ADDReLOD) 3 05835500 f 0055 
EMITPAIRC1sSSN) 3 oe ee oe 08595510 T 0058 
EMYITVCNEEDC™’»MEMHR"sINTRFUNIOD) 3 05535520 tr 0059 
END 3 05535530 T 0060 
L3s oo. EF XREP THEN ENTERXCXTASO8ALI591599]) §$ 08535540 7 0060 
END 05335550 r 0063 
ELSE IF AeCLASS2BLOCKID OR. A.CLASSSLABELIO THEN 05535560 T 0063 


158 


BEGIN FLOG(17 XIT EN 
=e BEGIN LOGC171)3 GO XIT END 
EMITPAIRCA.ADDR»LOD)3 
EMITOCDEL)3 GO L3 3 
END 3 
SCANS IF NEXT=COMMA THEN GO L2 3 
END 3 


XITIYF mMEBUGTOG THEN FLAGROUTINE(” MEMHA*s*NOLER ",FALSE) 3 


END OF MEMHANDLER 3 


PROCEDURE 
BEGIN LaB 


Rea 
B8n0 


BEGIN 


STATEMENT? 
EL DOL1i» XxIT3 


L TEMPNEXT 3 
LEAN ENDTOG3 
DO SCAN UNTIL NEXT # SEMI3 


IF NEXTSID THEN ASSIGNMENT ELSE IF NEXT LEQ RSH1 THEN 


CASECTEMPNEXT#NEXT) OF 


FLOGC16)3 
ASSIGNS 
TOCOMMAND(4)3 
BLOCKNATAS 
CALLS 
COMMON} — 
COMPLEX: 
BEGIN EXECUTABLES SCAN END3 | 


ZBACKSPACE 


~YOCOMMAND(79$ & DATA 


FILECONTROL (193 XENDFILE 
ENTRYS ee 
EQUIVALENCES 
EXTERNAL3 
BEGIN TYPE © #13 FUNCTION END3 
GOTOS$s 
INTEGERS} 
LOGTCALS 
og Aetoh vein cote 4 mee it 
PAUSES 
TOCOMMAND(2)3 == -¥PRINT 
3 ' 
IOCOMMAND(3)3 ZPUNCH 
TOCOMMAND(O23 = -SREAD 
REALS$ — a 
RETURN} 
FILECONTROL(O)3 REWIND 
BEGIN SCANS STOP ENDS 
SUBROUTINE? 
ITOCOMMAND(1)3 SWRITE 
FILECONTROL(7)3 SCLOSE 


BEGIN SCANS TYPE + =43 DIMENSION END3 
DOUBLEPRECISIONS 
BEGIN ENDS ENOTOG!=TRUE$ SCAN ENDS 


FILECONTROL(6)3 ZLOCK 


of q ° v 


 & CONTINUE 


EMITPAIR(38sKOM) 3 


158 1S 


05535570 
05535575 
05535580 
05535585 


05535590 


05535595 
05535600 
05535605 
05535610 


84 LONG» NEXT SEG 


05536000 


05537000 


START OF SEGMENT 


055470007 


05537100 
05537200 


05538000 © 


05539000 
05540000 


05541000 — 


05542000 
05543000 
‘05544000 
05545000 
05546000 


05548000 
05549000 


05550000 7 


05551000 
05552000 


05553000 


05554000 
95555000 


__ 905558000 


~ 05562000 © 


05559000 
05560000 
05861000 


05563000 
05564000 


05865000 - 


05566000 
05567000 


05568000 7 


05569000 
05570000 


~ 05571000 


05572000 
03573000 
05573100 
05573200 


05556000 + 0 
05557000. 


a te te 


0068 
00706 
007, 
0073 
0074 
0074 
0076 


“0076 


0079 


0633 


T 

tT 0633 
ptebhteten 
Tt 0000 
c¢ 0000 
= 0006 
T 0001 
y 0004 
T 0006 
T 0006 
YT 0008 
7 0009 ~ 
tT OO010 
T OO%% 
7 O0ya 
T 0019 
T OO018 
7 0016 
T OOF 
T 0020 
Pp 0022 
T 0024 
T 0025 
7 0026 
T 0027 
T 0028 
T 0030 
7 0034 
TY 0033 
tT 0035 
tT 0036 
YT 0037 
yy O36 
y 0038 
T 00480 
y O04; 
tT 0043 
yt O044 
T 0045 
tT 0047 
T 0048 
T 0049 
T 0054 


(Oh 


seg Pret: 


tA 


* 
{ 
i 
| 
I 
I 
i 


| 
| 


t . : t 7 f L : 
5 ‘ H Hy i : 


* a a 4 
FILECONTROL(4)3 SPURGE 05573300 T 0052 
IFS3 05574000 T 0053 
FORMATER} 05575000 T 0054 
CHAIN} 05575100 Tt 0058 
MEMHANDLERC1) 2 &FIXED 7 05576000 T 0056 
MEMHANDLER(2) 3 XVARYING 05576100 T 0058 
MEMHANDLER(3) 3 XAUXMEM FOR SUBPROGRAMS 05576200 T 0059 
MEMHANDLERC4) 3 XRELEASE ee "05577000 F 0064 
IMPLICIT 3 05577100 T 0062 
END ELSE IF NEXT3EQF THEN GO XIT ELSE BEGIN NEXT#O3 FLOGC16) END 3 05578000 T 0063 
START OF SEGMENT weutveaeee 160 
160 IS 44 LONG, NEXT SFG 159 
LASTNEXT,C33¢15)¢TEMPNEXT 3 05578100 ft 0067 
IF NOT ENOTOG THEN If SPLINK=O THEN SPLINKTS13 ~~ > "05579000 P  006a ~~ 
ENDTOGS=FALSE3 05579100 ¢ 0074 
IF LABL # BLANKS THEN — . 05880000 t 0072 
BEGIN 05581000 T 0073 
IF OT # 9 THEN 05582000 T 0073 
BE GTN ao odd 02 Veer dcn cond enn pode wa _ ae eee Coe ee a, , 05983000 T. 0074 
COL1! IF LABL = DOLABLTEST ¢ DT] THEN 05584000 7 0075 
REGYN 05585000 T 0076 
EMITBCDOTESTCOT]» FALSE)3 a oo 08886000 Ff 0077 ~~ 
FIXBCNOTESTCOT].ADDR)3 05587000 t 0078 
IF OT « DT"1 > O THEN GO TO OOL13 05588000 T 0079 
END ELSE | eps Al ident £4:aksh Ged. 6. eat .. ., 03589000 fr 0082 _ 
WHILE TEST * TEST*@1 > 0 DO 05590000 T 0082 
Ip DOLABCTEST] = LABL THEN FLAGC14)3 05591000 7 0085 
BNO oss Gea gue BS Bein < & sno st ee eoveae Gas pen sb op deaoeh rie 05592000 T0088 
LABL « BLANKS3 05592100 r 0068 
END3 05593000 T 0088 
futit sat Oeste Darter ty sql nctendity allt, stessraa aphndat sate ate eack, butane eeenn Wee tng, Cae, aeRO OO OO OOe 2 c..: 
IF NEXT # SEMI THEN 05595000 T 0088 
BEGIN 05596000 T 0089 
FLAGC11793 _ a oe 05597000 T 0090 | 
DO SCAN UNTIL NEXTSSEMI OR NEXTSEOF 3 05598000 T 0090 
END3 05399000 y 0093 
ERRORTOG © FALSER eee teeter tee. . 05600000 T 0093 
EasToG « TRUE a 65604000 T 
XITs 05602000 T 0095 
END STATEMENT] oe : hicaide eae Siecbivmiin deen uepe len. and aawds Boome teeen ce SAO A000 7, 009K. ee 
159 IS 99 LONGs NEXT SEG 6 
-BODLEAN STREAM PROCEDURE FLAGLAST(BUFFrERR) 3 05603010 T 0633 
BEGIN aks "05603020 06339 —— 
LOCAL AX} SI*ERRS BCIF SCA" © THEN JUMP OUTSSTeSI+¢STALLY@TALLY 414 3 05603030 T 0634 
ASTALLYS  ST*LOC AS SIeST#7 degiertlog Mime BUEUE S. RlBheSs came duuendtet ve A OSOTIOSO 1. 0O87F oo 
IF Se<"g" THEN 05603050 Tt 0637 
BEGIN TALLY#13 FLAGLASTeTALLY 3 05603060 T 0638 
DreBUFFSOS*€46 LIT"LAST SYNTAX ERROR OCCURRED AT SEQUENCE NUMBER "3 = = 05603070 T 0639 
DS*LIT™™*s  SI*ERRS OS¢8 CHRE OSeLITHHH; 05603080 T 0645 
nSe32 LIT * "3 05603081 c 064? 
98032 CIT ; it ae 05603082 ¢ 0654 
ate a fe 9 ene aeons one eens San oem gg a bo gm 
END FLAGLAST 3 05603100 T 0655 


i i | ! 
| | ! i 
| i 
{ 


t 
t 
i 


i 


i 


INTEGER PROCEDURE FIELOCX)3 VALUE X3 INTEGER X3 05603110 T 0657 
FIFL Dele x<10 THEN 1 ELSE IF X<100 THEN 2 ELSE IF x<1000 THEN 3 ELSE IF 05603120 7 0687 
X<10000 THEN 4 ELSE IF X<100000 THEN 5S ELSE IF X<1000000 THEN 6 ELSE 73 05603130 T 0663 
FORMAT €O0C1¢/ "NUMBER OF SYNTAX ERRORS DETECTED = "pIwa, "aXe, 05604000 7 0675 
START OF SEGMENT stnekhenes 
"NUMBER OF SEQUENCE ERRORS pETECTED = “sIua™,"), “05608000 Tt “0675 
FOC2C"PRT SIZE = "sTue"$ TOTAL SEGMENT SIZE & “otTwe 05606000 tT 0675 
" WORDSS DISK SIZE 2 “sI¥o" SEGS3 NO, PRGM, SEGS & “eI¥s. 05607000 T 0675 
a I 05607010 T 0678 
FOC3C"ESTIMATED CORE STORAGE REQUIREMENT = “sIas" WORDS", 05608000 7 0678 
" COMPILATION TIME 7 "slo" MINS “sTeo™ SECSI™s _ 05608010 T 0675 ~ 
* NOe CARDS = "sTuse™,")y 05608020 7 0678 
FOC4C"ESTIMATED CORE STORAGE REQUIREMENT = ",I*e"™ wORDS3" 05608030 Tt 0675 
" COMPILATION TIME = ", Tue" SECS3 NO, CARDS = sTue,")y 05608040 fr 0678 
FOCSC"*NUMBER OF TSS WARNINGS DETECTED = “sTwe”,") § 05608050 fT 0678 
106 LONG», NEXT SEG 
COMMENT MAIN DRIVER FOR FORTRAN COMPILER BEGINS HERES 05609000 T 0675 
RTY © TrMEC193 05610000 T 0675 
INITIALYZATIONS 05611000 T 0677 
DO STATEMENT UNTIL NEXT = EOFS 05612000 T 0677 
IF NOT ENDSEGTOG THEN IF SPLINK NEQ 0. 05612100 Pp 
THEN BEGIN XTAS3BLANKS$ FLAG(S5)3 ENDS END3 05612200 ¢ 0684 
WRAPUP3 — 05613000 Tt 0684 
POSTWRAPUP? i Newnes O56{3900 tT 0688 
IF TIMETOG THEN IF FIRSTCALL THEN DATIMES 05614000 7 0685 
IF NOT FIRSTCALL THEN | eds — 7 05615000 7 0688 
neeth soy tae cass teres ake hee eet ae a ee ee - 98618000 7 
WRITECRITESEOCLeFIELOCERRORCT) sERRORCTsIF SEGQERRCT#0 THEN 99 sos 05617000 Pp 0689 
SesFIFLOCSEQERRCT*1)*SEQERRCT#1) 3 068618000 7 0700 
IF WARNED ANO NOY DCINPUT THEN WRITECRITESEDCSsFIELDCWARNCOUNT)s = = ~~" "OS8L8I00 T° O705 °° 
WARNCOUNT) 3 05618110 7 0719 
WRITFCRITE sE0C2sF LELOCPRTS) »PRTSsFIELDCTSEGSZ) » TSEGSZoF LELDCDALOC™ 1)» 05619000 Tf 0723 
DALOCTIeFIELOCNXAVILISNXAVIL) FOO OBS LTIOLN F O736 ee 
IF CI*#CTIMECLI@RTID/60 > 59 THEN WRITECRITESEOC3sFIELOCOSXESTIMATE Da 05619020 T 0747 
G4xESTIMATESFIELDCCL DIV 609001 DIV 6OsFIELDCC1 MOD 60)eC1 MOD 605 05619030 Tt 0757 
FIELHNCCARDCOUNT@1 )»CARDCOUNT@1) ELSE WRITECRITE-EQCSsFIELOCESTIMATE = = ~~ 05619040 7 O77p° 
x64) ,ESTIMATEXO4sFIELDCCLsCisFIELDCCARDCOUNT@=1)sCARDCOUNT#=1) 3 05619045 T 0788 
IF ERRORCT>O THEN IF FLAGLASTCERRORBUFF»LASTERR) THEN WRITECRITEs15> 05619050 Pp 0802 __ 
ERRORBUFFC*1) 3 "05619100 7 C809 


BBY ge em Sage 


“USES ee 


! 
i 
i 
1 
i 
1 
j 


END 3 05619200 T O811 , 
END INNER BLOCKS 05620000 T 0811 


END. 05621000 7 0089 

2 18 92 LONGs NEXT SEG 1 
Y 1$ "2 LONG, NEXT SEG 0 

172 1S 69 LONG, NEXT SEG 0 

NUMBER OF ERRORS DETECTFO = 0. COMPILATION TIME = 1322 SECONDS. 


PRT SIZE * 5303 TOTAL SEGMENT SIZE 7 14251 WORDS’ OISK SIZE * 720 SEGS3 NOe PGM, SEGS ® 172 
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6 £8 615 LONGs NEXT SEG 20° 
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ESTIMATED CORE STORAGE REQUIRED = 190940 WORDS, 
ESTIMATED AUXILIARY MEMORY REQUIRED = O WORDS. 


NUMBER OF CARD@*IMAGES PROCESSED = 8230. 


LABEL OOO0000000LINE 00177097CC USERESITE 3 COMPILE FORTRAN/DISK WITH TSPOL LIBRARYSTSPOL FILE LINE TSPOL /FORTRAN 


